home *** CD-ROM | disk | FTP | other *** search
/ Aminet 39 / Aminet 39 (2000)(Schatztruhe)[!][Oct 2000].iso / Aminet / mus / edit / sfx-bin_30m.lha / sfx-bin.lha / Install-SFX < prev    next >
Text File  |  2000-06-30  |  72KB  |  1,510 lines
  1. ; Install-SFX Start -----------------------------------------------------------------------------------------
  2. ;
  3. ; $VER: Install-SFX V4.00 (28.05.2000)
  4. ;
  5. ; SoundFX Installscript
  6. ; (C) Copyright 1993-2000 Stefan Kost. All Rights Reserved.
  7. ;
  8. ; -----------------------------------------------------------------------------------------------------------
  9.  
  10. ; setze Konstanten ------------------------------------------------------------------------------------------
  11.  
  12. (SET #cur-ver "4.00")
  13.  
  14. ; definiere Prozeduren --------------------------------------------------------------------------------------
  15.  
  16. (PROCEDURE P_PUTTAG #tag #val                            ; write a tagged variable to a config-file
  17. (
  18.     (SET #val (CAT #val))                                ; make it a string
  19.     (IF (= (SUBSTR #val (- (STRLEN #val) 1) 1) "\n")
  20.     (
  21.         (SET #val (SUBSTR #val 0 (- (STRLEN #val) 1)))
  22.     ))
  23.     (RUN (CAT "PutTag ENV:Installer/Programs/sfx.cfg " #tag " \"" #val "\"") (SAFE))
  24. ))
  25.  
  26. (PROCEDURE P_GETTAG #tag                                ; read a tagged variable from a config-file
  27. (
  28.     (DELETE "ENV:gettag_sfx" (OPTIONAL FORCE) (SAFE))
  29.     (RUN (CAT "GetTag >ENV:gettag_sfx ENV:Installer/Programs/sfx.cfg " #tag)(SAFE))
  30.     (GETENV "gettag_sfx")
  31. ))
  32.  
  33. (PROCEDURE P_NEWDIR #path #dir                            ; tackon a path and create the dir if it not yet exists
  34. (
  35.     (SET #newpath (TACKON #path #dir))
  36.     (IF (= (EXISTS #newpath) 0) (MAKEDIR #newpath))        ; get an error here : "Interpreter : Install statements nested in Line xx"
  37.     (#newpath)                                            ; if anybody know what to do about this (if somebody ready this anyway ...)
  38. ))                                                        ; then please tell me
  39.  
  40. ; setze sprachenabhängige Texte -----------------------------------------------------------------------------
  41.  
  42. (IF (= @LANGUAGE "çesky")
  43. (
  44.     (SET #bad-kick                "SoundFX vyùaduje nejménë Kickstart 3.0 !")
  45.     (SET #bad-installer            "SoundFX vyùaduje instaler verzi >= 43.0 !\nMûùe být nalezen na Aminetu v adresáêi util/misc/Installer43.3.lha.")
  46.     (SET #welcome-messy1        "\n\nVítejte v instalaci SoundFX !\nTento skript zkopíruje vîechny soubory nutné ke spuîtëní na Váî harddisk.")
  47.     (SET #welcome-messy2        "Tento skript si zapamatuje vîechny Vaîe nastavení.\nAù ho znovu spustíte v reùimu 'Novice' nebo 'Average', provede vîechna nastavení hladce sám. Budete pouze dotázán, zda chcete pêidat nová nastavení.\nPokud potêebujete provést nová nastavení spusïte skript v reùimu Expert. Budete znovu dotázán pêi vîech nastaveních, ale také bude zmënën Váî poslední skript.")
  48.     (SET #choose-dest            "Vyberte prosím cílový adresáê !\nAdresáê s názvem SoundFX zde bude vytvoêen automaticky !\nUjistëte se, ùe máte nejménë 3 MB volného prostoru na Vaîem harddisku !")
  49.     (SET #choose-dest-help        "Zde si mûùete zvolit místo na Vaîem harddisku, kam bude SFX nainstalován")
  50.     (SET #copy-loader            "kopíruji loadery ...")
  51.     (SET #copy-operators        "kopíruji operátory ...")
  52.     (SET #copy-player            "kopíruji playery ...")
  53.     (SET #copy-rexx                "kopíruji arexx skripty ...")
  54.     (SET #copy-saver            "kopíruji savery ...")
  55.     (SET #copy-executable        "kopíruji spustitelné programy ...")
  56.     (SET #copy-fonts            "kopíruji fonty ...")
  57.     (SET #copy-libs                "kopíruji knihovny ...")
  58.     (SET #copy-envelopes        "kopíruji obálky ...")
  59.     (SET #copy-presets            "kopíruji pêednastavení ...")
  60.     (SET #copy-workshop            "kopíruji ukázkové soubory ...")
  61.     (SET #copy-icons            "kopíruji ikony ...")
  62.     (SET #copy-gfx                "kopíruji gfx ...")
  63.     (SET #copy-text                "kopíruji texty ...")
  64.     (SET #copy-guides            "kopíruji nápovëdy ...")
  65.     (SET #copy-keyfile            "kopíruji keyfile ...")
  66.     (SET #copy-catalogs            "kopíruji katalogy ...")
  67.     (SET #copy-help                "Dotyçné soubory budou zkopírovány na Váî harddisk.")
  68. ;NEW
  69.     (SET #copy-goodies            "copy third-party stuff ...")
  70.     (SET #choose-binary            "Please choose the processor version to install!")
  71.     (SET #choose-binary-help    "Those versions are optimized for the combination of cpu and fpu.")
  72.     (SET #choose-language        "Please choose a language for the documentation!")
  73.     (SET #choose-language-help    ".")
  74. ;NEW
  75.     (SET #choose-icon            "Vyberte prosím sadu ikon, kterou chcete nainstalovat !")
  76.     (SET #choose-icon-help        "Standartní verze je pro 4-barevný Workbench.\nSady pro MagicWB a Iconographics vyùadují nejménë 8 barev.\nVerze pro NewIcon vyùaduje Newicon software.")
  77.     (SET #choose-keypath        "Vyberte prosím adresáê, kam má být naistalován keyfile !")
  78.     (SET #choose-fontpath        "Vyberte prosím adresáê, kam mají být nainstalovány fonty !")
  79.     (SET #choose-path-help        "Mûùete si vybrat jakékoliv z tëchto míst ! SFX prohledá vîechna z nich.")
  80.     (SET #choose-instmode        "SFX je jiù nainstalován ! Co mám dëlat ?")
  81.     (SET #choose-instmode-help    "V módu BACKUP bude starý adresáê SFX pêejmenován na SFX_old.\nV módu UPDATE budou vîechny dêíve nainstalované soubory pêepsány.")
  82.     (SET #copykey-fail            "Kopírování keyfilu selhalo !")
  83.     (SET #exit-messy            "\n\nSFX je úspëînë naistalován.\nPêeçtëte si prosím guide-dokument, abyste vëdëli jak s programem pracovat.")
  84.     (SET #orderform                "Orderform.txt")
  85.     (SET #catalog                "çeský")
  86.     (SET #readme                "ÇtiMë#?")
  87. ;NEW
  88.     (SET #requires-openurl        "SoundFX now requires the openurl.library >=3.0, but it is not installed or too old.")
  89.     (SET #requires-popupmenu    "SoundFX now can use the popupmenu.library >=9.0, but it is not installed or too old.")
  90. ;NEW
  91. ))
  92. (IF (= @LANGUAGE "dansk")
  93. (
  94.     (SET #bad-kick                "SoundFX kræver mindst Kickstart 3.0!")
  95.     (SET #bad-installer            "SoundFX kræver mindst en Installerversion >= 43.0!\nDen kan findes på Aminet under util/misc/Installer43.3.lha.")
  96.     (SET #welcome-messy1        "\n\nVelkommen til installationen af SoundFX!\nDette script vil kopiere alle de filer, der er nødvendige for at bruge SoundFX, til din hardisk.")
  97. ;NEW
  98.     (SET #welcome-messy2        "This script will remember all your choices permanently.\nIf you run this script the next time in 'Novice' or 'Average' mode, it will assume all choces to be like the last time and proceed quietly. You will be only asked if there is a new choice required.\nIf you need to change any setting run the script in expert mode. This reasks you all questions, but reenters already your last choice.")
  99. ;NEW
  100.     (SET #choose-dest            "Vælg destinationsmappen! En undermappe med navn SFX vil automatisk blive oprettet.\nDu skal være sikker på, at der er mindst 3.0 MB fri på din harddisk!")
  101.     (SET #choose-dest-help        "Her kan du vælge det sted på din harddisk, hvor du vil have SFX installeret.")
  102.     (SET #copy-loader            "kopierer load-modulerne ...")
  103.     (SET #copy-operators        "kopierer operatør-modulerne ...")
  104.     (SET #copy-player            "kopierer afspilnings-modulerne ...")
  105.     (SET #copy-rexx                "kopierer ARexx-scriptene ...")
  106.     (SET #copy-saver            "kopierer save-modulerne ...")
  107.     (SET #copy-executable        "kopierer executable ...")
  108.     (SET #copy-fonts            "kopierer fonte ...")
  109.     (SET #copy-libs                "kopierer biblioteker ...")
  110.     (SET #copy-envelopes        "kopierer envelopes ...")
  111.     (SET #copy-presets            "kopierer præindstillinger ...")
  112.     (SET #copy-workshop            "kopierer workshop-data ...")
  113.     (SET #copy-icons            "kopierer ikon ...")
  114.     (SET #copy-gfx                "kopierer grafik ...")
  115.     (SET #copy-text                "kopierer tekst ...")
  116.     (SET #copy-guides            "kopierer guides ...")
  117.     (SET #copy-keyfile            "kopierer keyfile ...")
  118. ;NEW
  119.     (SET #copy-catalogs            "copying catalogs ...")
  120. ;NEW
  121.     (SET #copy-help                "De respektive filer vil blive kopieret til din harddisk.")
  122. ;NEW
  123.     (SET #copy-goodies            "copy third-party stuff ...")
  124.     (SET #choose-binary            "Please choose the processor version to install!")
  125.     (SET #choose-binary-help    "Those versions are optimized for the combination of cpu and fpu.")
  126.     (SET #choose-language        "Please choose a language for the documentation!")
  127.     (SET #choose-language-help    ".")
  128. ;NEW
  129. ;CHANGE
  130. ;    (SET #choose-icon            "Vælg det ikon du vil installere\n4-farve udgaven er til standard wb-farven, mens 8-farve udgaven er til Magic-WB!")
  131. ;    (SET #choose-icon-help        "Hvis du har mere end fire farver på din WB, skal du vælge 8-farve ikonet.\nDen ser pænere ud.")
  132.     (SET #choose-icon            "Vælg det ikon du vil installere !")
  133.     (SET #choose-icon-help        "The standart version is for a 4 coulour wb.\nThe MagicWB and Iconographics versions require at least 8 colours.\nThe NewIcon versions require the newicon software.")
  134. ;CHANGE
  135.     (SET #choose-icon            "Vælg det ikon du vil installere\n4-farve udgaven er til standard wb-farven, mens 8-farve udgaven er til Magic-WB!")
  136.     (SET #choose-icon-help        "Hvis du har mere end fire farver på din WB, skal du vælge 8-farve ikonet.\nDen ser pænere ud.")
  137.     (SET #choose-keypath        "Vælg en mappe, som din keyfile skal installeres i.")
  138.     (SET #choose-fontpath        "Vælg en mappe, som fontene skal installeres i!")
  139.     (SET #choose-path-help        "Du kan vælge imellem alle disse mapper. SFX vil gennemsøge dem alle!")
  140.     (SET #choose-instmode        "SFX er allerede installeret! Hvordan skal jeg fortsætte?")
  141.     (SET #choose-instmode-help    "I backup-mode bliver den gamle SFX-mappe omdøbt til SFX_old.\nI opdaterings-mode vil allerede installerede filer blive overskrevet.")
  142. ;NEW
  143.     (SET #copykey-fail            "Copying of the keyfile failed !")
  144. ;NEW
  145.     (SET #exit-messy            "\n\nSFX er blevet succesfuldt installeret!\nLæs venligst guiden for at lære, hvordan man bruger programmet.")
  146.     (SET #orderform                "Orderform.dansk.txt")
  147.     (SET #catalog                "dansk")
  148.     (SET #readme                "ReadMe#?")
  149. ;NEW
  150.     (SET #requires-openurl        "SoundFX now requires the openurl.library >=3.0, but it is not installed or too old.")
  151.     (SET #requires-popupmenu    "SoundFX now can use the popupmenu.library >=9.0, but it is not installed or too old.")
  152. ;NEW
  153. ))
  154. (IF (= @LANGUAGE "deutsch")
  155. (
  156.     (SET #bad-kick                "SoundFX benötigt mindestens Kickstart 3.0 !")
  157.     (SET #bad-installer            "SoundFX benötigt die Installerversion >= 43.0 !\nDieser ist im Aminet unter util/misc/Installer43.3.lha zu finden.")
  158.     (SET #welcome-messy1         "\n\nWillkommen zur Installation von SoundFX !\nDieses Script wird alle Dateien, die Sie zum Benutzen von SoundFX brauchen, auf Ihre Festplatte kopieren.")
  159.     (SET #welcome-messy2        "Dieses Skript wird sich all ihre Auswahlen dauerhaft merken.\nWenn Sie das Skript im 'Einsteiger' oder 'geübter Benutzer'-Modus starten wieder starten, wird es alle Einstellungen beibehalten und im stillen fortfahren. Sie werden nur gefragt, wenn eine neue Einstellung erforderlich ist.\nWenn Sie einige Einstellungen ändern müssen, so starten Sie das Skript im Expertenmodus. Dadurch werden alle Einstellungen erneut abgefragt, Ihre letzte Auswahl wird bereits voreingestellt.")
  160.     (SET #choose-dest            "Bitte Zielverzeichnis aussuchen !\nEin Verzeichnis mit dem Namen SFX wird angelegt !\nBitte stellen Sie sicher, daß auf der Zielpartition 3.0 MB-Speicher frei ist !")
  161.     (SET #choose-dest-help        "Hier können Sie auswählen, wohin Sie das Programm installeren möchten")
  162.     (SET #copy-loader            "kopiere Loader-Module ...")
  163.     (SET #copy-operators        "kopiere Operator-Module ...")
  164.     (SET #copy-player            "kopiere Player-Module ...")
  165.     (SET #copy-rexx                "kopiere ARexx-Scripts ...")
  166.     (SET #copy-saver            "kopiere Saver-Module ...")
  167.     (SET #copy-executable        "kopiere Executable ...")
  168.     (SET #copy-fonts            "kopiere Fonts ...")
  169.     (SET #copy-libs                "kopiere Librarys ...")
  170.     (SET #copy-envelopes        "kopiere Envelopes ...")
  171.     (SET #copy-presets            "kopiere Presets ...")
  172.     (SET #copy-workshop            "kopiere Workshopdateien ...")
  173.     (SET #copy-icons            "kopiere Icons ...")
  174.     (SET #copy-gfx                "kopiere Gfx ...")
  175.     (SET #copy-text                "kopiere Texte ...")
  176.     (SET #copy-guides            "kopiere Guides ...")
  177.     (SET #copy-keyfile            "kopiere Keyfile ...")
  178.     (SET #copy-catalogs            "kopiere Kataloge ...")
  179.     (SET #copy-help                "Die entsprechenden Dateien werden gerade auf ihre Festplatte kopiert.")
  180.     (SET #copy-goodies            "kopiere Dateien von anderen Nutzern ...")
  181.     (SET #choose-binary            "Bitte wählen Sie den Prozessorvariante zum installieren aus!")
  182.     (SET #choose-binary-help    "Die Versionen sind auf die ensprechenden CPU und FPU Typen optimiert.")
  183.     (SET #choose-language        "Bitte wählen Sie die Sprache für die Dokumentation aus!")
  184.     (SET #choose-language-help    ".")
  185.     (SET #choose-icon            "Bitte wählen Sie den Icontyp aus, das Sie installieren möchten !")
  186.     (SET #choose-icon-help        "Die Standart Variante ist für eine 4-farbige WB.\nDie MagicWB und Iconographics-Varianten benötigen mindestens 8 Farben.\nDie NewIcon Varianten benötigen die NewIcon Software.")
  187.     (SET #choose-keypath        "Bitte suchen Sie ein Zielverzeichnis aus, wo das Keyfile installiert werden soll !")
  188.     (SET #choose-fontpath        "Bitte suchen Sie ein Zielverzeichnis aus, wo die Zeichensätze installiert werden sollen !")
  189.     (SET #choose-path-help        "Sie können irgendeins der angegebenen Verzeichnisse wählen ! SFX wird in allen Verzeichnissen suchen.")
  190.     (SET #choose-instmode        "SFX ist bereits installiert ! Wie soll ich fortfahren ?")
  191.     (SET #choose-instmode-help    "Im Modus Backup wird das alte SFX-Verzeichnis nach SFX_old umbenannt.\nIm Modus Update werde bereits installierte Dateien überschrieben.")
  192.     (SET #copykey-fail            "Das Kopieren des Keyfiles hat nicht geklappt !")
  193.     (SET #exit-messy            "\n\nSFX konnte erfolgreich installiert werden.\nBitte lesen Sie das Guide, um zu erfahren wie das Programm bedient wird.\n")
  194.     (SET #orderform                "Bestellformular.txt")
  195.     (SET #catalog                "deutsch")
  196.     (SET #readme                "LiesMich#?")
  197. ;NEW
  198.     (SET #requires-openurl        "SoundFX benötigt jetzt die openurl.library >=3.0. Sie ist jedoch nicht installiert oder zu alt.")
  199.     (SET #requires-popupmenu    "SoundFX kann jetzt auch die popupmenu.library >=9.0 benutzen. Sie ist jedoch nicht installiert oder zu alt.")
  200. ;NEW
  201. ))
  202. (IF (= @LANGUAGE "english")
  203. (
  204.     (SET #bad-kick                "SoundFX requires at least Kickstart 3.0 !")
  205.     (SET #bad-installer            "SoundFX requires installer version >= 43.0 !\nThis could be found on Aminet in util/misc/Installer43.3.lha.")
  206.     (SET #welcome-messy1        "\n\nWelcome to the installation of SoundFX !\nThis script will copy all the files you need to run SoundFX to your harddisk.")
  207.     (SET #welcome-messy2        "This script will remember all your choices permanently.\nIf you run this script the next time in 'Novice' or 'Average' mode, it will assume all choces to be like the last time and proceed quietly. You will be only asked if there is a new choice required.\nIf you need to change any setting run the script in expert mode. This reasks you all questions, but reenters already your last choice.")
  208.     (SET #choose-dest            "Please choose a destination directory !\nA drawer called SFX will be automatically generated !\nPlease make sure, that you have at least 3.0 MB free free space on your HD !")
  209.     (SET #choose-dest-help        "Here you can choose the place on your HD, were SFX should be installed")
  210.     (SET #copy-loader            "copying loadermoduls ...")
  211.     (SET #copy-operators        "copying operatormoduls ...")
  212.     (SET #copy-player            "copying playermoduls ...")
  213.     (SET #copy-rexx                "copying arexxscripts ...")
  214.     (SET #copy-saver            "copying savermoduls ...")
  215.     (SET #copy-executable        "copying executable ...")
  216.     (SET #copy-fonts            "copying fonts ...")
  217.     (SET #copy-libs                "copying libraries ...")
  218.     (SET #copy-envelopes        "copying envelopes ...")
  219.     (SET #copy-presets            "copying presets ...")
  220.     (SET #copy-workshop            "copying workshopfiles ...")
  221.     (SET #copy-icons            "copying icons ...")
  222.     (SET #copy-gfx                "copying gfx ...")
  223.     (SET #copy-text                "copying texts ...")
  224.     (SET #copy-guides            "copying guides ...")
  225.     (SET #copy-keyfile            "copying the keyfile ...")
  226.     (SET #copy-catalogs            "copying catalogs ...")
  227.     (SET #copy-help                "The respective files will copied to your HD.")
  228.     (SET #copy-goodies            "copy third-party stuff ...")
  229.     (SET #choose-binary            "Please choose the processor version to install!")
  230.     (SET #choose-binary-help    "Those versions are optimized for the combination of cpu and fpu.")
  231.     (SET #choose-language        "Please choose a language for the documentation!")
  232.     (SET #choose-language-help    ".")
  233.     (SET #choose-icon            "Please choose the the icon-set you want to install !")
  234.     (SET #choose-icon-help        "The standart version is for a 4 coulour wb.\nThe MagicWB and Iconographics versions require at least 8 colours.\nThe NewIcon versions require the newicon software.")
  235.     (SET #choose-keypath        "Please choose a directory where the keyfile should be installed to !")
  236.     (SET #choose-fontpath        "Please choose a directory where the fonts should be installed to !")
  237.     (SET #choose-path-help        "You can choose any of these places ! SFX will search all loactions.")
  238.     (SET #choose-instmode        "SFX is already installed ! What should i do ?")
  239.     (SET #choose-instmode-help    "In mode backup the old drawer will be renamed to SFX_old.\nIn mode update already installed files will be overwritten.")
  240.     (SET #copykey-fail            "Copying of the keyfile failed !")
  241.     (SET #exit-messy            "\n\nSFX is successfuly installed.\nPlease read the guide, to learn how to work with the program.")
  242.     (SET #orderform                "Orderform.txt")
  243.     (SET #catalog                "english")
  244.     (SET #readme                "ReadMe#?")
  245.     (SET #requires-openurl        "SoundFX now requires the openurl.library >=3.0, but it is not installed or too old.")
  246.     (SET #requires-popupmenu    "SoundFX now can use the popupmenu.library >=9.0, but it is not installed or too old.")
  247. ))
  248. (IF (= @LANGUAGE "español")
  249. (
  250.     (SET #bad-kick                "¡ SoundFX necesita por lo menos Kickstart 3.0 !")
  251.     (SET #bad-installer            "¡ SoundFX necesita una versión del Installer >= 43.0 !\nPuede encontrar ésta en Aminet bajo util/misc/Installer43.3.lha .")
  252.     (SET #welcome-messy1         "\n\n¡ Bienvenido a la Instalación de SoundFX !\nEste Script copiará a su disco duro todos los ficheros necesarios para el funcionamiento de SoundFX.")
  253.     (SET #welcome-messy2        "Este Script recordará sus decisiones permanentemente.\nCuando vuelva a ejecutar el Script como 'Usuario nuevo' o 'Usuario medio', se utilizarán las decisiones tomadas la primera vez y la instalación tendrá lugar de manera 'silenciosa'. Solo se detendrá cuando se precise un nuevo ajuste.\nSi tiene que modificar algun ajuste, arranque el Script instalador como 'Usuario experto'. De este modo se le pedirán todos los ajustes de nuevo y estas últimas decisiones serán las por defecto.")
  254.     (SET #choose-dest            "¡ Por favor, seleccione un directorio destino !\nSe creará automáticamente un directorio llamado SFX .\n¡ Asegúrese, por favor, que en la partición destinataria haya por lo menos 3MB de espacio libres !")
  255.     (SET #choose-dest-help        "Aqui puede elegir dónde instalar el programa SoundFX")
  256.     (SET #copy-loader            "copiando Módulos cargadores...")
  257.     (SET #copy-operators        "copiando Módulos operadores ...")
  258.     (SET #copy-player            "copiando Módulos reproductores ...")
  259.     (SET #copy-rexx                "copiando Scripts ARexx...")
  260.     (SET #copy-saver            "copiando Módulos guardadores ...")
  261.     (SET #copy-executable        "copiando Ejecutable ...")
  262.     (SET #copy-fonts            "copiando Fuentes ...")
  263.     (SET #copy-libs                "copiando Librerias ...")
  264.     (SET #copy-envelopes        "copiando Envolventes ...")
  265.     (SET #copy-presets            "copiando Presets ...")
  266.     (SET #copy-workshop            "copiando Ficheros del Workshop ...")
  267.     (SET #copy-icons            "copiando iconos ...")
  268.     (SET #copy-gfx                "copiando Gfx ...")
  269.     (SET #copy-text                "copiando Textos ...")
  270.     (SET #copy-guides            "copiando Guias ...")
  271.     (SET #copy-keyfile            "copiando Fichero clave ...")
  272.     (SET #copy-catalogs            "copiando Catálogos ...")
  273.     (SET #copy-help                "Los ficheros correspondientes se están copiando a su disco duro.")
  274. ;NEW
  275.     (SET #copy-goodies            "copy third-party stuff ...")
  276.     (SET #choose-binary            "Please choose the processor version to install!")
  277.     (SET #choose-binary-help    "Those versions are optimized for the combination of cpu and fpu.")
  278.     (SET #choose-language        "Please choose a language for the documentation!")
  279.     (SET #choose-language-help    ".")
  280. ;NEW
  281.     (SET #choose-icon            "¡ Por favor seleccione el tipo de iconos que desea instalar !")
  282.     (SET #choose-icon-help        "La variante Estándart esta indicada para un Workbench de 4 colores.\nLas variantes MagicWB i Iconographics precisan por lo menos 8 colores.\nLa variante NewIcons necesita que el software adicional NewIcons esté instalado.")
  283.     (SET #choose-keypath        "¡ Por favor, escoja un directorio donde copiar el fichero clave (Keyfile) !")
  284.     (SET #choose-fontpath        "¡ Por favor, escoja un directorio donde copiar las fuentes !")
  285.     (SET #choose-path-help        "¡ Puede escojer cualquiera de los directorios mostrados ! SoundFX buscará en todos los directorios.")
  286.     (SET #choose-instmode        "¡ SoundFX ya ha sido instalado anteriormente  ! Como debo proceder ahora ?")
  287.     (SET #choose-instmode-help    "En el modo Backup se renombrará el antiguo directorio SFX a SFX_old.\nEn el modo Update (Actualizar) se sobreescribirán los ficheros antiguos.")
  288.     (SET #copykey-fail            "¡ La copia del fichero clave no ha funcionado !")
  289.     (SET #exit-messy            "\n\n¡ SoundFX ha sido instalado con éxito!\nPor favor, lea la guia para averiguar como se maneja el programa.\n")
  290.     (SET #orderform                "Orderform.español.txt")
  291.     (SET #catalog                "español")
  292.     (SET #readme                "readme#?")
  293. ;NEW
  294.     (SET #requires-openurl        "SoundFX now requires the openurl.library >=3.0, but it is not installed or too old.")
  295.     (SET #requires-popupmenu    "SoundFX now can use the popupmenu.library >=9.0, but it is not installed or too old.")
  296. ;NEW
  297. ))
  298. (IF (= @LANGUAGE "français")
  299. (
  300.     (SET #bad-kick                "SoundFX demande au moins le Kickstart 3.0 !")
  301.     (SET #bad-installer            "SoundFX demande l'installer version >= 43.0 !\nCe Script peut être trouver sur Aminet dans util/misc/Installer43.3.lha.")
  302.     (SET #welcome-messy1        "\n\nBienvenue dans l'installation de SoundFX !\nCes  scripts vont copier tous les fichiers dont vous avez besoin pour démarrer SoundFX de votre disque dur.")
  303.     (SET #welcome-messy2        "Ce script va enregistrer vos choix de façon permanente.\n Si vous redemarrez le script en mode 'Débutant' ou 'Initié', vos sélections de la présente session seront rappelées sans vous interroger. Vous ne serez interrogés que si une nouvelle sélection est requise.\nSi vous voulez modifier des options, démarrez le script en mode 'Expert'. Ceci aura pour effet de reposer toutes les questions, mais vos anciennes préférences seront proposées.")
  304.     (SET #choose-dest            "Choisissez SVP le répertoire de destination !\nUn répertoire appelé SFX va être automatiquement créé!\nVérifiez SVP que vous avez au moins 3 Mo d'espace libre sur votre Disque Dur !")
  305.     (SET #choose-dest-help        "Ici vous pouvez choisir l'emplacement sur votre DD où SFX doit être installé")
  306.     (SET #copy-loader            "Copie des modules de lecture (loadermoduls) ...")
  307.     (SET #copy-operators        "Copie des modules opérateurs (operatormoduls) ...")
  308.     (SET #copy-player            "Copie des modules d'écoute (playermoduls) ...")
  309.     (SET #copy-rexx                "Copie des scripts AREXX (arexxscripts) ...")
  310.     (SET #copy-saver            "Copie des modules de sauvegarde (savermoduls) ...")
  311.     (SET #copy-executable        "Copie de l'executable ...")
  312.     (SET #copy-fonts            "Copie des polices ...")
  313.     (SET #copy-libs                "Copie des librairies ...")
  314.     (SET #copy-envelopes        "Copie des enveloppes ...")
  315.     (SET #copy-presets            "Copie des 'presets' ...")
  316.     (SET #copy-workshop            "Copie des fichiers workshop ...")
  317.     (SET #copy-icons            "Copie des icônes ...")
  318.     (SET #copy-gfx                "Copie des gfx ...")
  319.     (SET #copy-text                "Copie des textes ...")
  320.     (SET #copy-guides            "Copie des guides ...")
  321.     (SET #copy-keyfile            "Copie du Keyfile ...")
  322.     (SET #copy-catalogs            "Copie des catalogues ...")
  323.     (SET #copy-help                "Les fichiers respectifs vont être copiés sur votre Disque Dur.")
  324. ;NEW
  325.     (SET #copy-goodies            "copy third-party stuff ...")
  326.     (SET #choose-binary            "Please choose the processor version to install!")
  327.     (SET #choose-binary-help    "Those versions are optimized for the combination of cpu and fpu.")
  328.     (SET #choose-language        "Please choose a language for the documentation!")
  329.     (SET #choose-language-help    ".")
  330. ;NEW
  331.     (SET #choose-icon            "Choisissez SVP le type d'icône que vous voulez installer !")
  332.     (SET #choose-icon-help        "La version standard est faite pour le WB de 4 couleur.\nLes versions MagicWB et Iconographics demandent au moins 8 coleurs.\nLes versions NewIcon requièrent que le logiciel NewIcon soit installé.")
  333.     (SET #choose-keypath        "Choisissez SVP le répertoire où le keyfile doit être installé !")
  334.     (SET #choose-fontpath        "Choisissez SVP le répertoire où les polices doivent être installées !")
  335.     (SET #choose-path-help        "Vous pouvez choisir n'importe lequel de ces endroits ! SFX cherchera tous ces endroits.")
  336.     (SET #choose-instmode        "SFX est déjà installé ! Que dois je faire ?")
  337.     (SET #choose-instmode-help    "En mode 'backup' le vieux répertoire sera renommé en SFX_old.\nEn mode 'update', les fichiers éxistants seront remplacés.")
  338.     (SET #copykey-fail            "La copie du fichier Keyfile a échouée !")
  339.     (SET #exit-messy            "\n\nSFX a été installé avec succès.\nLisez SVP le guide, pour apprendre comment travailler avec le programme.")
  340.     (SET #orderform                "Orderform.français.txt")
  341.     (SET #catalog                "français")
  342.     (SET #readme                "ReadMe#?")
  343. ;NEW
  344.     (SET #requires-openurl        "SoundFX now requires the openurl.library >=3.0, but it is not installed or too old.")
  345.     (SET #requires-popupmenu    "SoundFX now can use the popupmenu.library >=9.0, but it is not installed or too old.")
  346. ;NEW
  347. ))
  348. (IF (= @LANGUAGE "greek")
  349. (
  350.     (SET #bad-kick                "Ôï SoundFX ÷ñåéÜæåôáé ôïõëÜ÷éóôïí Kickstart 3.0 !")
  351.     (SET #bad-installer            "Ôï SoundFX ÷ñåéÜæåôáé Ýêäïóç ôïõ installer >= 43.0 !\nÌðïñåßôå íá ôï âñåßôå óôï Aminet , util/misc/Installer43.3.lha.")
  352.     (SET #welcome-messy1        "\n\nÊáëþò Þëèáôå óôçí åãêáôÜóôáóç ôïõ SoundFX !\nÈá áíôéãñáöïýí üëá ôá áñ÷åßá ðïõ ÷ñåéÜæåóôå ãéá íá ôñÝîåôå ôï SoundFX áðü ôï óêëçñü äßóêï.")
  353.     (SET #welcome-messy2        "Áõôü ôï script èá èõìÜôáé üëåò óáò ôéò åðéëïãÝò.\nÁí îáíáôñÝîåôå áõôü ôï script ùò 'Áñ÷Üñéïò' Þ 'ÌÝóïò' ÷ñÞóôçò, èá õðïèÝóåé ïôé üëåò óáò ïé åðéëïãÝò èá åßíáé ßäéåò ìå ôçí ðñïçãïýìåíç öïñÜ êáé èá ðñï÷ùñÞóåé ÷ùñßò åñùôÞóåéò. Èá åñùôçèåßôå ìüíï åÜí ÷ñåéÜæåôáé íá êÜíåôå ìéá íÝá åðéëïãÞ.\nÁí ÷ñåéáóôåß íá áëëÜîåôå êÜôé ôñÝîôå ôï script ùò '¸ìðåéñïò' ÷ñÞóôçò. ¸ôóé èá óáò îáíáêÜíåé üëåò ôéò åñùôÞóåéò, áëëÜ èá Ý÷åé ðñïåðéëåãìÝíç ôçí ôåëåõôáßá óáò åðéëïãÞ.")
  354.     (SET #choose-dest            "Ðáñáêáëþ äéáëÝîôå óõñôáñß ãéá ôçí åãêáôÜóôáóç !\n¸íá óõñôÜñé ìå üíïìá SFX èá äçìéïõñãçèåß áõôüìáôá !\nÐáñáêáëþ óéãïõñåõôåßôå üôé Ý÷åôå ôïõëÜ÷éóôïí 3.0 MB åëåýèåñï ÷þñï óôï óêëçñü äßóêï !")
  355.     (SET #choose-dest-help        "Åäþ ìðïñåßôå íá åðéëÝîåôå ôï ìÝñïò óôï óêëçñü äßóêï üðïõ ôï SFX èá åãêáôáóôáèåß")
  356.     (SET #copy-loader            "ÁíôéãñÜöïíôáé ôá loadermoduls ...")
  357.     (SET #copy-operators        "ÁíôéãñÜöïíôáé ôá operatormoduls ...")
  358.     (SET #copy-player            "ÁíôéãñÜöïíôáé ôá playermoduls ...")
  359.     (SET #copy-rexx                "ÁíôéãñÜöïíôáé ôá arexxscripts ...")
  360.     (SET #copy-saver            "ÁíôéãñÜöïíôáé ôá savermoduls ...")
  361.     (SET #copy-executable        "ÁíôéãñÜöåôáé ôï åêôåëÝóéìï ...")
  362.     (SET #copy-fonts            "ÁíôéãñÜöïíôáé ïé ãñáììáôïóåéñÝò ...")
  363.     (SET #copy-libs                "ÁíôéãñÜöïíôáé ïé âéâëéïèÞêåò ...")
  364.     (SET #copy-envelopes        "ÁíôéãñÜöïíôáé ôá envelopes ...")
  365.     (SET #copy-presets            "ÁíôéãñÜöïíôáé ïé ðñïåðéëïãÝò ...")
  366.     (SET #copy-workshop            "ÁíôéãñÜöïíôáé ôá workshopfiles ...")
  367.     (SET #copy-icons            "ÁíôéãñÜöïíôáé ôá åéêïíßäéá ...")
  368.     (SET #copy-gfx                "ÁíôéãñÜöïíôáé ôá áñ÷åßá ãñáöéêþí ...")
  369.     (SET #copy-text                "ÁíôéãñÜöïíôáé ôá êåßìåíá ...")
  370.     (SET #copy-guides            "ÁíôéãñÜöïíôáé ïé ïäçãßåò ...")
  371.     (SET #copy-keyfile            "ÁíôéãñÜöåôáé ôï keyfile ...")
  372.     (SET #copy-catalogs            "ÁíôéãñÜöïíôáé ïé êáôÜëïãïé ...")
  373.     (SET #copy-help                "Ôá áêüëïõèá áñ÷åßá èá áíôéãñáöïýí óôï óêëçñü äßóêï.")
  374. ;NEW
  375.     (SET #copy-goodies            "copy third-party stuff ...")
  376.     (SET #choose-binary            "Please choose the processor version to install!")
  377.     (SET #choose-binary-help    "Those versions are optimized for the combination of cpu and fpu.")
  378.     (SET #choose-language        "Please choose a language for the documentation!")
  379.     (SET #choose-language-help    ".")
  380. ;NEW
  381.     (SET #choose-icon            "Ðáñáêáëþ åðéëÝîôå ôï óåô åéêïíéäßùí ðïõ èÝëåôå íá åãêáôáóôáèåß !")
  382.     (SET #choose-icon-help        "Ç êáíïíéêÞ Ýêäïóç åßíáé ãéá ôåôñÜ÷ñùìï wb.\nÏé MagicWB êáé Iconographics åêäüóåéò áðáéôïýí ôïõëÜ÷éóôïí 8 ÷ñþìáôá.\nÏé NewIcon åêäüóåéò áðáéôïýí ôï newicon ëïãéóìéêü.")
  383.     (SET #choose-keypath        "Ðáñáêáëþ åðéëÝîôå óõñôáñé ãéá ôçí åãêáôÜóôáóç ôïõ keyfile !")
  384.     (SET #choose-fontpath        "Ðáñáêáëþ åðéëÝîôå óõñôÜñé ãéá ôçí åãêáôÜóôáóç ôùí ãñáììáôïóåéñþí !")
  385.     (SET #choose-path-help        "Ìðïñåßôå íá äéáëÝîåôå ïðïéïäÞðïôå áðü áõôÜ ôá óõñôÜñéá ! Ôï SFX èá øÜîåé üëá áõôÜ.")
  386.     (SET #choose-instmode        "Ôï SFX åßíáé Þäç åãêáôåóôçìÝíï ! Ôé èÝëåôå íá êÜíù ;")
  387.     (SET #choose-instmode-help    "Ìå ôçí åðéëïãÞ 'áñ÷åéïèÝôçóç' ôï ðáëéü óõñôÜñé èá ìåôïíïìáóôåß óå SFX_old.\nÌå ôçí åðéëïãÞ 'áíáâÜèìçóç' ôá Þäç åãêáôåóôçìÝíá áñ÷åßá èá îáíáãñáöïýí.")
  388.     (SET #copykey-fail            "Ç áíôéãñáöÞ ôïõ keyfile áðÝôõ÷å !")
  389.     (SET #exit-messy            "\n\nÔï SFX åãêáôáóôÜèçêå åðéôõ÷þò.\nÐáñáêáëþ äéáâÜóôå ôéò ïäçãßåò, ãéá íá ìÜèåôå ðþò íá äïõëåýåôå ìå ôï ðñüãñáììá.")
  390.     (SET #orderform                "ÄåëôßïÐáñáããåëßáò.txt")
  391.     (SET #catalog                "greek")
  392.     (SET #readme                "ReadMe#?")
  393. ;NEW
  394.     (SET #requires-openurl        "SoundFX now requires the openurl.library >=3.0, but it is not installed or too old.")
  395.     (SET #requires-popupmenu    "SoundFX now can use the popupmenu.library >=9.0, but it is not installed or too old.")
  396. ;NEW
  397. ))
  398. (IF (= @LANGUAGE "italiano")
  399. (
  400.     (SET #bad-kick                "SoundFX richiede il Kickstart 3.0 o superiore !")
  401.     (SET #bad-installer            "SoundFX richiede una versione di Installer 43.0 o superiore !\nTale versione può essere reperita in Aminet in util/misc/Installer43.3.lha.")
  402.     (SET #welcome-messy1        "\n\nBenvenuto nell'installazione di SoundFX !\nQuesto script copierà tutti i file necessari sul tuo hard-disk.")
  403. ;NEW
  404.     (SET #welcome-messy2        "This script will remember all your choices permanently.\nIf you run this script the next time in 'Novice' or 'Average' mode, it will assume all choces to be like the last time and proceed quietly. You will be only asked if there is a new choice required.\nIf you need to change any setting run the script in expert mode. This reasks you all questions, but reenters already your last choice.")
  405. ;NEW
  406.     (SET #choose-dest            "Seleziona una directory di destinazione !\nUna directory chiamata SFX sarà automaticamente creata.\nAssicurati di avere almeno 3.0 Mb liberi sul tuo HD !")
  407.     (SET #choose-dest-help        "Con questo requester puoi scegliere dove installare SFX sul tuo HD.")
  408.     (SET #copy-loader            "sto copiando i loadermodules ...")
  409.     (SET #copy-operators        "sto copiando gli operatormodules ...")
  410.     (SET #copy-player            "sto copiando i playermodules ...")
  411.     (SET #copy-rexx                "sto copiando gli script arexx ...")
  412.     (SET #copy-saver            "sto copiando i savermodules ...")
  413.     (SET #copy-executable        "sto copiando l'eseguibile ...")
  414.     (SET #copy-fonts            "sto copiando i fonts ...")
  415.     (SET #copy-libs                "sto copiando le librerie ...")
  416.     (SET #copy-envelopes        "sto copiando le envelopes ...")
  417.     (SET #copy-presets            "sto copiando i presets ...")
  418.     (SET #copy-workshop            "sto copiando i workshopfiles ...")
  419.     (SET #copy-icons            "sto copiando le icone ...")
  420.     (SET #copy-gfx                "sto copiando la grafica ...")
  421.     (SET #copy-text                "sto copiando i testi ...")
  422.     (SET #copy-guides            "sto copiando le guide ...")
  423.     (SET #copy-keyfile            "sto copiando il Keyfile ...")
  424. ; NEW
  425.     (SET #copy-catalogs            "copying catalogs ...")
  426. ; NEW
  427.     (SET #copy-help                "I file selezionati verranno copiati sul tuo HD.")
  428. ;NEW
  429.     (SET #copy-goodies            "copy third-party stuff ...")
  430.     (SET #choose-binary            "Please choose the processor version to install!")
  431.     (SET #choose-binary-help    "Those versions are optimized for the combination of cpu and fpu.")
  432.     (SET #choose-language        "Please choose a language for the documentation!")
  433.     (SET #choose-language-help    ".")
  434. ;NEW
  435. ; CHANGE
  436. ;    (SET #choose-icon            "Seleziona l'icona che vuoi installare\nL'icona a 4 colori è stata creata per il WB standard, mentre quella a 8 colori segue la palette MagicWB.")
  437. ;    (SET #choose-icon-help        "Se il tuo WB ha più di 4 colori, seleziona l'icona ad 8 colori.\nQuesta icona è più bella.")
  438.     (SET #choose-icon            "Seleziona l'icona che vuoi installare !")
  439.     (SET #choose-icon-help        "The standart version is for a 4 coulour wb.\nThe MagicWB and Iconographics versions require at least 8 colours.\nThe NewIcon versions require the newicon software.")
  440. ; CHANGE
  441.     (SET #choose-keypath        "Please choose a directory where the keyfile should be installed to !")
  442.     (SET #choose-keypath        "Seleziona la directory dove installare il keyfile !")
  443.     (SET #choose-fontpath        "Seleziona la directory dove installare i fonts !")
  444.     (SET #choose-path-help        "Puoi selezionare qualsiasi destinazione: SFX controllerà tutte le directory")
  445.     (SET #choose-instmode        "SFX è già installato ! Cosa devo fare ?")
  446.     (SET #choose-instmode-help    "In modalità backup il vecchio cassetto verrà rinominato SFX_old.\nIn modalità update i file già installati verranno sovrascritti.")
  447. ; NEW
  448.     (SET #copykey-fail            "Copying of the keyfile failed !")
  449. ; NEW
  450.     (SET #exit-messy            "\n\nSFX è stato installato con successo.\nLeggi attentamente la guida per imparare ad utilizzare al meglio il programma.")
  451.     (SET #orderform                "Orderform.italiano.txt")
  452.     (SET #catalog                "italiano")
  453.     (SET #readme                "ReadMe#?")
  454. ;NEW
  455.     (SET #requires-openurl        "SoundFX now requires the openurl.library >=3.0, but it is not installed or too old.")
  456.     (SET #requires-popupmenu    "SoundFX now can use the popupmenu.library >=9.0, but it is not installed or too old.")
  457. ;NEW
  458. ))
  459. (IF (= @LANGUAGE "nederlands")
  460. (
  461.     (SET #bad-kick                "SoundFX heeft minstens Kickstart 3.0 nodig!")
  462.     (SET #bad-installer            "SoundFX heeft een installer versie >= 43.0 nodig!\nDeze is op Aminet te vinden in util/misc/Installer43.3.lha.")
  463.     (SET #welcome-messy1        "\n\nWelkom bij de installatie van SoundFX!\nDit script copieert alle bestanden die nodig zijn voor het gebruiken van SoundFX naar uw harddisk.")
  464. ;NEW
  465.     (SET #welcome-messy2        "This script will remember all your choices permanently.\nIf you run this script the next time in 'Novice' or 'Average' mode, it will assume all choces to be like the last time and proceed quietly. You will be only asked if there is a new choice required.\nIf you need to change any setting run the script in expert mode. This reasks you all questions, but reenters already your last choice.")
  466. ;NEW
  467.     (SET #choose-dest            "Kies een directory voor SoundFX!\nEen lade met de naam SFX wordt automatisch aangemaakt!\nVoor de installatie is tenminste 3.0 MB vrije ruimte op uw HD nodig!")
  468.     (SET #choose-dest-help        "Hier kunt u de plaats op uw harddisk kiezen waar SoundFX geinstalleerd moet worden.")
  469.     (SET #copy-loader            "loadermodules worden gecopieerd ...")
  470.     (SET #copy-operators        "operatormodules worden gecopieerd ...")
  471.     (SET #copy-player            "playermodules worden gecopieerd ...")
  472.     (SET #copy-rexx                "arexxscripts worden gecopieerd ...")
  473.     (SET #copy-saver            "savermodules worden gecopieerd ...")
  474.     (SET #copy-executable        "executable  worden gecopieerd ...")
  475.     (SET #copy-fonts            "fonts worden gecopieerd ...")
  476.     (SET #copy-libs                "libraries worden gecopieerd ...")
  477.     (SET #copy-envelopes        "envelopes worden gecopieerd ...")
  478.     (SET #copy-presets            "presets worden gecopieerd ...")
  479.     (SET #copy-workshop            "workshopfiles worden gecopieerd ...")
  480.     (SET #copy-icons            "icons worden gecopieerd ...")
  481.     (SET #copy-gfx                "gfx worden gecopieerd ...")
  482.     (SET #copy-text                "texts worden gecopieerd ...")
  483.     (SET #copy-guides            "guides worden gecopieerd ...")
  484.     (SET #copy-keyfile            "Keyfile wordt gecopieerd ...")
  485.     (SET #copy-catalogs            "catalogs worden gecopieerd ...")
  486.     (SET #copy-help                "De benodigde bestanden worden naar uw HD gecopieerd.")
  487. ;NEW
  488.     (SET #copy-goodies            "copy third-party stuff ...")
  489.     (SET #choose-binary            "Please choose the processor version to install!")
  490.     (SET #choose-binary-help    "Those versions are optimized for the combination of cpu and fpu.")
  491.     (SET #choose-language        "Please choose a language for the documentation!")
  492.     (SET #choose-language-help    ".")
  493. ;NEW
  494.     (SET #choose-icon            "Kies het icon-set dat u wilt installeren!")
  495.     (SET #choose-icon-help        "De standaard versie is voor een 4-kleuren Werkbank.\nDe MagicWB en Iconographics versies hebben tenminste 8 kleuren nodig.\nDe NewIcon versie heeft de newicon software nodig.")
  496.     (SET #choose-keypath        "Kies een directory waar de keyfile geinstalleerd moet worden!")
  497.     (SET #choose-fontpath        "Kies een directory waar de fonts geinstalleerd moeten worden!")
  498.     (SET #choose-path-help        "U kunt elk van deze plekken kiezen ! SFX zal automatisch alle locaties afzoeken.")
  499.     (SET #choose-instmode        "SFX is reeds geinstalleerd! Wat zal ik doen?")
  500.     (SET #choose-instmode-help    "Bij mode backup word de naam van de oude lade veranderd in SFX_old.\nBij mode update worden alle oude bestanden overgeschreven.")
  501.     (SET #copykey-fail            "Het copieren van de keyfile is niet gelukt!")
  502.     (SET #exit-messy            "\n\nSFX is successvol geinstalleerd.\nLees de Guide om met het programma te leren werken.")
  503.     (SET #orderform                "Bestelformulier.txt")
  504.     (SET #catalog                "nederlands")
  505.     (SET #readme                "ReadMe#?")
  506. ;NEW
  507.     (SET #requires-openurl        "SoundFX now requires the openurl.library >=3.0, but it is not installed or too old.")
  508.     (SET #requires-popupmenu    "SoundFX now can use the popupmenu.library >=9.0, but it is not installed or too old.")
  509. ;NEW
  510. ))
  511. (IF (= @LANGUAGE "norsk")
  512. (
  513.     (SET #bad-kick                "SoundFX krever minst Kickstart 3.0!")
  514.     (SET #bad-installer            "SoundFX krever minst en Installerversion >= 43.0!\nDen kan finnes på Aminet under util/misc/Installer43.3.lha.")
  515.     (SET #welcome-messy1        "\n\nVelkommen til installasjonen av SoundFX!\nDette script vil kopiere alle de filer, som er nødvendige for å bruke SoundFX, til din hardisk.")
  516.     (SET #welcome-messy2        "Dette skript vil huske alledine valg permanent.\nhvis du kjører dette skript neste gang i 'Novice' eller 'Average' mode, vil det anta at alle valg er som sist gang, og fortsetter stille. Du vil bare bli spurt om det er et nytt valg når det gjelder.\nHvis du trenger å forandre en setting, må skriptet kjøres i expert mode. Dette spør alle spørsmål på nytt, men legger inn dine gamle valg som standard.")
  517.     (SET #choose-dest            "Velg destinasjonskatalogen! En underkatalog med navn SFX vil automatisk bli opprettet.\nDu skal være sikker på at det er minst 3.0 MB fri på din harddisk!")
  518.     (SET #choose-dest-help        "Her kan du velge det sted på din harddisk, hvor du vil ha SFX installert.")
  519.     (SET #copy-loader            "kopierer load-modulene ...")
  520.     (SET #copy-operators        "kopierer operatør-modulene ...")
  521.     (SET #copy-player            "kopierer afspilnings-modulene ...")
  522.     (SET #copy-rexx                "kopierer ARexx-scriptene ...")
  523.     (SET #copy-saver            "kopierer save-modulene ...")
  524.     (SET #copy-executable        "kopierer executable ...")
  525.     (SET #copy-fonts            "kopierer fontene ...")
  526.     (SET #copy-libs                "kopierer biblioteker ...")
  527.     (SET #copy-envelopes        "kopierer envelopes ...")
  528.     (SET #copy-presets            "kopierer forinnstillinger ...")
  529.     (SET #copy-workshop            "kopierer workshop-data ...")
  530.     (SET #copy-icons            "kopierer ikon ...")
  531.     (SET #copy-gfx                "kopierer grafikk ...")
  532.     (SET #copy-text                "kopierer tekst ...")
  533.     (SET #copy-guides            "kopierer guides ...")
  534.     (SET #copy-keyfile            "kopierer keyfile ...")
  535.     (SET #copy-catalogs            "copying catalogs ...")
  536.     (SET #copy-help                "De respektive filer vil bli kopiert til din harddisk.")
  537. ;NEW
  538.     (SET #copy-goodies            "copy third-party stuff ...")
  539.     (SET #choose-binary            "Please choose the processor version to install!")
  540.     (SET #choose-binary-help    "Those versions are optimized for the combination of cpu and fpu.")
  541.     (SET #choose-language        "Please choose a language for the documentation!")
  542.     (SET #choose-language-help    ".")
  543. ;NEW
  544.     (SET #choose-icon            "Velg det ikon du vil innstallere\n4-farge utgaven er til standard wb-fargen, mens 8-farge utgaven er til Magic-WB!")
  545.     (SET #choose-icon-help        "Hvis du har mer enn fire farger på din WB, skal du velge 8-farge ikonet.\nDen ser penere ut.")
  546.     (SET #choose-keypath        "Velg en katalog, som din keyfile skal innstalleres i.")
  547.     (SET #choose-fontpath        "Velg en katalog, som fontene skal innstalleres i!")
  548.     (SET #choose-path-help        "Du kan velge imellom alle disse mapper. SFX vil gjennomsøke dem alle!")
  549.     (SET #choose-instmode        "SFX er allerede installert! Hvordan skal jeg fortsette?")
  550.     (SET #choose-instmode-help    "I backup-mode blir den gamle SFX-mappe omdøpt til SFX_old.\nI oppdaterings-mode vil allerede installerte filer bli overskrevet.")
  551.     (SET #copykey-fail            "Kopiering av keyfilen feilet!")
  552.     (SET #exit-messy            "\n\nSFX er blitt suksessfullt installert!\nLes vennligst guiden for å lære, hvordan man bruker programmet.")
  553.     (SET #orderform                "Orderform.norsk.txt")
  554.     (SET #catalog                "norsk")
  555.     (SET #readme                "ReadMe#?")
  556. ;NEW
  557.     (SET #requires-openurl        "SoundFX now requires the openurl.library >=3.0, but it is not installed or too old.")
  558.     (SET #requires-popupmenu    "SoundFX now can use the popupmenu.library >=9.0, but it is not installed or too old.")
  559. ;NEW
  560. ))
  561. (IF (= @LANGUAGE "polski")
  562. (
  563.     (SET #bad-kick                "SoundFX wymaga systemu w wesji co najmniej 3.0!")
  564.     (SET #bad-installer            "SoundFX wymaga Installera w wesji co najmniej 43.0!\nNajnowszâ wersjë Installera znajdziesz na Aminecie: \"util/misc/Installer43.3.lha\".")
  565.     (SET #welcome-messy1        "\n\nWitaj w programie instalacyjnym SoundFXa!\nTen program skopiuje wszystkie pliki niezbëdne do uruchomienia SoundFXa na Twój dysk twardy.")
  566. ;NEW
  567.     (SET #welcome-messy2        "This script will remember all your choices permanently.\nIf you run this script the next time in 'Novice' or 'Average' mode, it will assume all choces to be like the last time and proceed quietly. You will be only asked if there is a new choice required.\nIf you need to change any setting run the script in expert mode. This reasks you all questions, but reenters already your last choice.")
  568. ;NEW
  569.     (SET #choose-dest            "Gdzie chcesz zainstalowaê SoundFXa?\nKatalog \"SFX\" zostanie automatycznie utworzony!\nUpewnij sië, ûe masz co najmniej 3.0 MB wolnego miejsca na dysku!")
  570.     (SET #choose-dest-help        "wybierz katalog na dysku twardym, w którym SoundFX powinien zostaê zainstalowany")
  571.     (SET #copy-loader            "kopiujë moduîy wczytujâce ...")
  572.     (SET #copy-operators        "kopiujë operatory ...")
  573.     (SET #copy-player            "kopiujë moduîy odtwarzajâce ...")
  574.     (SET #copy-rexx                "kopiujë skrypty ARexx'a ...")
  575.     (SET #copy-saver            "kopiujë moduîy zapisujâce ...")
  576.     (SET #copy-executable        "kopiujë program ...")
  577.     (SET #copy-fonts            "kopiujë czcionki ...")
  578.     (SET #copy-libs                "kopiujë biblioteki ...")
  579.     (SET #copy-envelopes        "kopiujë obwiednie ...")
  580.     (SET #copy-presets            "kopiujë ustawienia ...")
  581.     (SET #copy-workshop            "kopiujë przykîady ...")
  582.     (SET #copy-icons            "kopiujë ikonki ...")
  583.     (SET #copy-gfx                "kopiujë grafikë ...")
  584.     (SET #copy-text                "kopiujë teksty ...")
  585.     (SET #copy-guides            "kopiujë dokumentacjë ...")
  586.     (SET #copy-keyfile            "kopiujë plik-klucz ...")
  587. ; NEW
  588.     (SET #copy-catalogs            "copying catalogs ...")
  589. ; NEW
  590.     (SET #copy-help                "Odpowiednie pliki zostanâ skopiowane na Twój dysk twardy.")
  591. ;NEW
  592.     (SET #copy-goodies            "copy third-party stuff ...")
  593.     (SET #choose-binary            "Please choose the processor version to install!")
  594.     (SET #choose-binary-help    "Those versions are optimized for the combination of cpu and fpu.")
  595.     (SET #choose-language        "Please choose a language for the documentation!")
  596.     (SET #choose-language-help    ".")
  597. ;NEW
  598. ; CHANGE
  599. ;    (SET #choose-icon            "Wybierz rodzaj ikonek do zainstalowania\n4 kolorowâ dla standardowej palety Workbencha oraz 8 kolorowâ dla palety MagicWB!")
  600. ;    (SET #choose-icon-help        "Jeôli masz wiëcej niû 4 kolory na swoim ekranie WB wybierz wersjë 8 kolorowâ.\nWyglâda znacznie lepiej.")
  601.     (SET #choose-icon            "Wybierz rodzaj ikonek do zainstalowania !")
  602.     (SET #choose-icon-help        "The standart version is for a 4 coulour wb.\nThe MagicWB and Iconographics versions require at least 8 colours.\nThe NewIcon versions require the newicon software.")
  603. ; CHANGE
  604.     (SET #choose-keypath        "Wybierz katalog w którym chcesz zainstalowaê swój plik-klucz")
  605.     (SET #choose-fontpath        "Wybierz katalog w którym chcesz zainstalowaê czcionki")
  606.     (SET #choose-path-help        "Moûesz wybraê dowolny katalog z wymienionych! SFX sprawdzi je wszystkie.")
  607.     (SET #choose-instmode        "SFX jest juû zainstalowany! Co mam zrobiê?")
  608.     (SET #choose-instmode-help    "W trybie \"Backup\" nazwa istniejâcëgo katalogu zostanie zmieniona na \"SFX_old\".\nW trybie aktualizacji, istniejâce pliki zostanâ zastâpione nowymi.")
  609. ; NEW
  610.     (SET #copykey-fail            "Copying of the keyfile failed !")
  611. ; NEW
  612.     (SET #exit-messy            "\n\nSFX zostaî poprawnie zainstalowany.\nProszë, przeczytaj dokumentacjë, aby dowiedzieê sië jak pracowaê z programem.")
  613.     (SET #orderform                "Orderform.polski.txt")
  614.     (SET #catalog                "polski")
  615.     (SET #readme                "ReadMe#?")
  616. ;NEW
  617.     (SET #requires-openurl        "SoundFX now requires the openurl.library >=3.0, but it is not installed or too old.")
  618.     (SET #requires-popupmenu    "SoundFX now can use the popupmenu.library >=9.0, but it is not installed or too old.")
  619. ;NEW
  620. ))
  621. (IF (= @LANGUAGE "svenska")
  622. (
  623.     (SET #bad-kick              "SoundFX kräver åtminstone Kickstart 3.0 !")
  624.     (SET #bad-installer         "SoundFX kräver åtminstone version 43.0 av installeraren !\nDenna finns på Aminet i util/misc/Installer43.3.lha.")
  625.     (SET #welcome-messy1        "\n\nVälkommen till installationen av SoundFX !\nDetta skript kommer att kopiera alla filer du behöver för att köra SoundFX till din hårddisk.")
  626.     (SET #welcome-messy2        "Detta skript kommer permanent ihåg alla dina val.\nOm du kör detta skript i 'Novice'- eller 'Average'-läge kommer det att anta att alla val är samma som du valde förra gången och fortsätta tyst. Du blir bara tillfrågad om det är ett nytt val.\nOm du vill göra några ändringar måste du köra skriptet i expertläge. Då frågas du alla frågor igen, men dina gamla val är förinställda.")
  627.     (SET #choose-dest           "Välj var SoundFX skall installeras !\nEn låda med namnet SFX kommer automatiskt att skapas !\nSe till att du har minst 3.0 MB ledigt utrymme på hårddisken !")
  628.     (SET #choose-dest-help      "Här kan du välja var på din hårddisk som SoundFX skall installeras.")
  629.     (SET #copy-loader           "kopierar laddningsmoduler ...")
  630.     (SET #copy-operators        "kopierar operatormoduler ...")
  631.     (SET #copy-player           "kopierar ljudmoduler ...")
  632.     (SET #copy-rexx             "kopierar arexxskript ...")
  633.     (SET #copy-saver            "kopierar sparningsmoduler ...")
  634.     (SET #copy-executable       "kopierar körbara filen ...")
  635.     (SET #copy-fonts            "kopierar typsnitt ...")
  636.     (SET #copy-libs             "kopierar bibliotek (libraries)...")
  637.     (SET #copy-envelopes        "kopierar enveloper ...")
  638.     (SET #copy-presets          "kopierar förinställningar (presets) ...")
  639.     (SET #copy-workshop         "kopierar workshopfiler ...")
  640.     (SET #copy-icons            "kopierar ikoner ...")
  641.     (SET #copy-gfx              "kopierar grafik ...")
  642.     (SET #copy-text             "kopierar texter ...")
  643.     (SET #copy-guides           "kopierar guider ...")
  644.     (SET #copy-keyfile          "kopierar nyckelfil (Keyfile) ...")
  645.     (SET #copy-catalogs         "kopierar katalogfiler ...")
  646.     (SET #copy-help             "Respektive filer kommer att kopieras till din hårddisk.")
  647. ;NEW
  648.     (SET #copy-goodies            "copy third-party stuff ...")
  649.     (SET #choose-binary            "Please choose the processor version to install!")
  650.     (SET #choose-binary-help    "Those versions are optimized for the combination of cpu and fpu.")
  651.     (SET #choose-language        "Please choose a language for the documentation!")
  652.     (SET #choose-language-help    ".")
  653. ;NEW
  654.     (SET #choose-icon           "Var vänlig välj vilken ikon du vill installera !")
  655.     (SET #choose-icon-help      "Standardversionen är för en fyrfärgers WB.\nMagicWB och Iconographics-versionerna kräver minst åtta färger.\nNewIcon-versionen kräver NewIcons-mjukvaran.")
  656.     (SET #choose-keypath        "Var vänlig välj var nyckelfilen skall sparas !")
  657.     (SET #choose-fontpath       "Var vänlig välj var typsnitten (fonts) skall installeras !")
  658.     (SET #choose-path-help      "Du kan välja vilken som helst av dessa ställen ! SoundFX kommer att söka på alla.")
  659.     (SET #choose-instmode       "SoundFX är redan installerat ! Vad vill du göra ?")
  660.     (SET #choose-instmode-help  "I backup-mod kommer den gamla lådan att döpas om till SFX_old.\nI update-mod kommer de redan installerade filerna skrivas över.")
  661.     (SET #copykey-fail          "Misslyckades med att kopiera nyckelfilen!")
  662.     (SET #exit-messy            "\n\nSoundFX har installerats klart.\nVar god läs dokumentationen för att lära dig hur man arbetar med programmet.")
  663.     (SET #orderform             "Orderform.svenska.txt")
  664.     (SET #catalog               "svenska")
  665.     (SET #readme                "ReadMe#?")
  666.     (SET #requires-openurl      "SoundFX kräver nu openurl.library version >=3.0, men det är antingen inte installerat eller är en för gammal version.")
  667.     (SET #requires-openurl      "SoundFX kräver nu popupmenu.library version >=9.0, men det är antingen inte installerat eller är en för gammal version.")
  668. ))
  669.  
  670. (IF (= @LANGUAGE "suomi")
  671. (
  672.     (SET #bad-kick                "SoundFX vaatii toimiakseen vähintään käyttöjärjestelmäversion 3.0 !")
  673.     (SET #bad-installer            "SoundFX:n asentamiseen tarvitaan vähintään Installer-asennusohjelman versio 43.0 !\nLöydät asennusohjelman uusimman version Aminet:stä hakemistosta 'util/misc/'.")
  674.     (SET #welcome-messy1        "\n\nTervetuloa SoundFX:n asennukseen !\nTämä komentotiedosto asentaa kaikki SoundFX:n tarvitsemat tiedostot kovalevylle.")
  675.     (SET #welcome-messy2        "Asennuksen aikana tehdyt valinnat talletetaan.\nTalletettuja valintoja käytetään oletusvalintoina kun asennus suoritetaan toisen kerran. Asennusohjelma sivuuttaa pysähtymättä 'Aloittelija' ja 'Kokenut' tilassa kaikki ne valinnat, joiden oletusarvo on talletettu.\nJos haluat määrittää asennusvalinnat uudelleen, suorita asennus 'Asiantuntija' tilassa.")
  676.     (SET #choose-dest            "SoundFX tarvitsee kovalevytilaa vähintää 3.0 MB.\nOhjelmistolle luodaan hakemisto 'SFX' valitsemaasi hakemistoon.\nValitse kohdehakemisto.")
  677.     (SET #choose-dest-help        "Tämän toiminnon avulla valitaan hakemisto, jonne SoundFX asennetaan.")
  678.     (SET #copy-loader            "lataajien kopiointi ...")
  679.     (SET #copy-operators        "äänenkäsittelijöiden kopiointi ...")
  680.     (SET #copy-player            "toistimien kopiointi ...")
  681.     (SET #copy-rexx                "arexx-makrojen kopiointi ...")
  682.     (SET #copy-saver            "tallentajien kopiointi ...")
  683.     (SET #copy-executable        "ohjelmatiedoston kopiointi ...")
  684.     (SET #copy-fonts            "kirjasimien kopiointi ...")
  685.     (SET #copy-libs                "kirjastojen kopiointi ...")
  686.     (SET #copy-envelopes        "verhokäyrien kopiointi ...")
  687.     (SET #copy-presets            "esiasetusten kopiointi ...")
  688.     (SET #copy-workshop            "työpajatiedostojen kopiointi ...")
  689.     (SET #copy-icons            "ikonien kopiointi ...")
  690.     (SET #copy-gfx                "grafiikan kopiointi ...")
  691.     (SET #copy-text                "tekstien kopiointi ...")
  692.     (SET #copy-guides            "ohjeiden kopiointi ...")
  693.     (SET #copy-keyfile            "avaintiedoston kopiointi ...")
  694.     (SET #copy-catalogs            "sanastojen kopiointi ...")
  695.     (SET #copy-help                "Asiaan kuuluvat tiedostot kopioidaan kovalevylle.")
  696. ;NEW
  697.     (SET #copy-goodies            "copy third-party stuff ...")
  698.     (SET #choose-binary            "Please choose the processor version to install!")
  699.     (SET #choose-binary-help    "Those versions are optimized for the combination of cpu and fpu.")
  700.     (SET #choose-language        "Please choose a language for the documentation!")
  701.     (SET #choose-language-help    ".")
  702. ;NEW
  703.     (SET #choose-icon            "Valitse asennettava ikonisto !")
  704.     (SET #choose-icon-help        "Perusikoneita käytetään 4-värisessä Workbench:ssä.\nMagicWB ja Iconographics ikonit vaativat vähintään 8 väriä.\nNewIcon ikonit vaativat newicon-ohjelmiston.")
  705.     (SET #choose-keypath        "Valitse hakemisto, johon avaintiedosto asennetaan !")
  706.     (SET #choose-fontpath        "Valitse hakemisto, johon kirjasimet asennetaan !")
  707.     (SET #choose-path-help        "Voit valita minkä tahansa polun, sillä SoundFX tutkii niistä jokaisen.")
  708.     (SET #choose-instmode        "SoundFX on jo asennettu ! Mitä tehdään ?")
  709.     (SET #choose-instmode-help    "Varmistustilassa vanha hakemisto saa nimen 'SFX_old' (vanhoja tiedostoja ei menetetä).\nPäivitystilassa kirjoitetaan asennettujen tiedostojen päälle (vanhat tiedostot menetetään).")
  710.     (SET #copykey-fail            "Avaintiedoston kopiointi ei onnistunut !")
  711.     (SET #exit-messy            "\n\nSoundFX on nyt asennettu.\nOhjelman toiminnot on selitetty käyttöohjeessa. Lue se !")
  712.     (SET #orderform                "Tilauslomake.txt")
  713.     (SET #catalog                "suomi")
  714.     (SET #readme                "ReadMe#?")
  715. ;NEW
  716.     (SET #requires-openurl        "SoundFX now requires the openurl.library >=3.0, but it is not installed or too old.")
  717.     (SET #requires-popupmenu    "SoundFX now can use the popupmenu.library >=9.0, but it is not installed or too old.")
  718. ;NEW
  719. ))
  720.  
  721. ; check kick version ----------------------------------------------------------------------------------------
  722.  
  723. (SET #vernum (GETVERSION))
  724. (SET #ver (/ #vernum 65536))
  725. (IF (< #ver 39)
  726.     (ABORT #bad-kick)
  727. )
  728.  
  729. ; check installer version -----------------------------------------------------------------------------------
  730.  
  731. (SET #vernum @INSTALLER-VERSION)
  732. (SET #ver (/ #vernum 65536))
  733. (IF (< #ver 43)
  734.     (ABORT #bad-installer)
  735. )
  736.  
  737. ; los geht`s ------------------------------------------------------------------------------------------------
  738.  
  739. (COMPLETE 0)
  740. (MESSAGE #welcome-messy1)
  741. (MESSAGE #welcome-messy2)
  742.  
  743. ; init var's ------------------------------------------------------------------------------------------------
  744.  
  745. (SET #keypath 0)
  746. (SET #bin-ex 0)
  747. (SET #doc-ex 0)
  748. (SET #data-ex 0)
  749. (SET #key-ex 0)
  750. (SET #instmode 1)
  751. (SET #pathdocnr 0)
  752. (SET #pathbinnr 0)
  753.  
  754. ; mal sehn was für Drives da sind ---------------------------------------------------------------------------
  755.  
  756. (IF (= (EXISTS "music:" (NOREQ)) 2) (SET @DEFAULT-DEST "music:"))
  757. (IF (= (EXISTS "sound:" (NOREQ)) 2)    (SET @DEFAULT-DEST "sound:"))
  758. (IF (= (EXISTS "audio:" (NOREQ)) 2) (SET @DEFAULT-DEST "audio:"))
  759.  
  760. ; vielleicht hat er es ja auch schon mal installiert --------------------------------------------------------
  761.                                                             ; we need those directorys
  762. (IF (= (EXISTS "ENV:Installer") 0)                            ; check if drawer exists
  763.     (MAKEDIR "ENV:Installer" (SAFE))
  764. )
  765. (IF (= (EXISTS "ENV:Installer/Programs") 0)                        ; check if drawer exists
  766.     (MAKEDIR "ENV:Installer/Programs" (SAFE))
  767. )
  768. (IF (= (EXISTS "ENVARC:Installer") 0)                            ; check if drawer exists
  769.     (MAKEDIR "ENVARC:Installer" (SAFE))
  770. )
  771. (IF (= (EXISTS "ENVARC:Installer/Programs") 0)                        ; check if drawer exists
  772.     (MAKEDIR "ENVARC:Installer/Programs" (SAFE))
  773. )
  774.  
  775. (SET #lastdest (GETENV "SFXPATH"))                            ; cleanup very old envvar
  776. (IF (> (STRLEN #lastdest) 0)
  777. (
  778.     (COPYFILES (SOURCE "ENV:SFXPath") (DEST "ENV:Installer/Programs/SFXPath") (SAFE))
  779.     (COPYFILES (SOURCE "ENV:Installer/Programs/SFXPath") (DEST "ENVARC:Installer/Programs/SFXPath") (SAFE))
  780.     (DELETE "ENV:SFXPath" (OPTIONAL FORCE) (SAFE))
  781.     (DELETE "ENVARC:SFXPath" (OPTIONAL FORCE) (SAFE))
  782. ))
  783. (SET #lastdest (GETENV "Installer/Programs/SFXPath"))        ; cleanup old envvar
  784. (IF (> (STRLEN #lastdest) 0)
  785. (
  786.     (P_PUTTAG "path" #lastdest)
  787.     (COPYFILES (SOURCE "ENV:Installer/Programs/SFXPath") (DEST "ENVARC:Installer/Programs/SFXPath") (SAFE))
  788.     (DELETE "ENV:Installer/Programs/SFXPath" (OPTIONAL FORCE) (SAFE))
  789.     (DELETE "ENVARC:Installer/Programs/SFXPath" (OPTIONAL FORCE) (SAFE))
  790. ))
  791.  
  792. (SET #lastdest (P_GETTAG "path"))
  793. (IF (= (STRLEN #lastdest) 0)                                ; check if env-var exists
  794. (
  795.     (SET #lastdest                                            ; no, use default
  796.         (ASKDIR
  797.             (PROMPT #choose-dest)
  798.             (HELP #choose-dest-help)
  799.             (DEFAULT @DEFAULT-DEST)
  800.         )
  801.     )
  802. )
  803. (
  804.     (SET #lastdest                                            ; yes
  805.         (ASKDIR
  806.             (PROMPT #choose-dest)
  807.             (HELP #choose-dest-help)
  808.             (DEFAULT #lastdest)
  809.         )
  810.     )
  811. ))
  812. (P_PUTTAG "path" #lastdest)
  813.  
  814. ; falls nicht vorhanden, Verzeichnis anlegen ----------------------------------------------------------------
  815.  
  816. (COMPLETE 2)
  817. (SET #drawer-dest #lastdest)
  818. (SET @DEFAULT-DEST (TACKON #lastdest "SFX"))
  819. (SET #sfx-dest @DEFAULT-DEST)
  820. (IF (= (EXISTS #sfx-dest) 0)                                    ; check if drawer exists
  821.     (MAKEDIR #sfx-dest (INFOS))                                    ; no, create one
  822.     (                                                            ; yes, check what's already there
  823.         (SET #bin-ver (P_GETTAG "bin-ver"))
  824.         (IF (> (STRLEN #bin-ver) 0)                                ; is sfx-bin already installed ?
  825.             (IF (= #bin-ver #cur-ver)                            ; is it the current release ?
  826.                 (SET #bin-ex 2)
  827.                 (SET #bin-ex 1)
  828.             )
  829.             (SET #bin-ex 0)
  830.         )
  831.         (SET #doc-ver (P_GETTAG "doc-ver"))
  832.         (IF (> (STRLEN #doc-ver) 0)                                ; is sfx-doc already installed ?
  833.             (IF (= #doc-ver #cur-ver)                            ; is it the current release ?
  834.                 (SET #doc-ex 2)
  835.                 (SET #doc-ex 1)
  836.             )
  837.             (SET #doc-ex 0)
  838.         )
  839.         (SET #data-ver (P_GETTAG "data-ver"))
  840.         (IF (> (STRLEN #data-ver) 0)                            ; is sfx-data already installed ?
  841.             (IF (= #data-ver #cur-ver)                            ; is it the current release ?
  842.                 (SET #data-ex 2)
  843.                 (SET #data-ex 1)
  844.             )
  845.             (SET #data-ex 0)
  846.         )
  847.         (SET #goodies-ver (P_GETTAG "goodies-ver"))
  848.         (IF (> (STRLEN #goodies-ver) 0)                            ; is sfx-goodies already installed ?
  849.             (IF (= #goodies-ver #cur-ver)                            ; is it the current release ?
  850.                 (SET #goodies-ex 2)
  851.                 (SET #goodies-ex 1)
  852.             )
  853.             (SET #goodies-ex 0)
  854.         )
  855.         (SET #key-ex 0)
  856.         (IF (= (EXISTS "devs:keyfiles/sfx.key") 1)                ; is there already a key installed
  857.             (SET #key-ex 1)
  858.         )
  859.         (IF (= (EXISTS (CAT #sfx-dest "/sfx.key")) 1)
  860.             (SET #key-ex 2)
  861.         )
  862.         (IF (= (EXISTS (CAT #sfx-dest "/Keyfiles/sfx.key")) 1)
  863.             (SET #key-ex 3)
  864.         )
  865.         (SET #instsum (OR (OR #bin-ex #doc-ex) #data-ex))
  866.         (IF (= #instsum 1)                                        ; an old version detected
  867.         (
  868.             (SET #instmode (P_GETTAG "instmode"))                    ; get last-time choice
  869.             (IF (OR (= @user-level 2) (AND (= @user-level 1) ((= (STRLEN #instmode) 0))))    ; requerry ?
  870.             (
  871.                 (IF ((= (STRLEN #instmode) 0)) (SET #instmode 0))
  872.                 (SET #instmode                                            ; yes, backup or update ?
  873.                     (ASKCHOICE
  874.                         (PROMPT #choose-instmode)
  875.                         (HELP #choose-instmode-help)
  876.                         (CHOICES
  877.                             "Backup old installation"
  878.                             "Update old installation"
  879.                         )
  880.                         (DEFAULT #instmode)
  881.                     )
  882.                 )
  883.                 (P_PUTTAG "instmode" #instmode)
  884.             ))
  885.             (IF (= #instmode 0)                                        ; backup
  886.             (
  887.                 (SET #sfxsub-dest (CAT #sfx-dest "_old"))
  888.                 (IF (= (EXISTS #sfxsub-dest) 2)                            ; delete old backup
  889.                     (RUN (CAT "DELETE " #sfxsub-dest " ALL QUIET FORCE"))
  890.                 )
  891.                 (RENAME #sfx-dest #sfxsub-dest)
  892.                 (RENAME (CAT #sfx-dest ".info") (CAT #sfxsub-dest ".info"))
  893. ;                (COPYFILES
  894. ;                    (SOURCE #sfx-dest)
  895. ;                    (DEST #sfxsub-dest)
  896. ;                    (ALL)
  897. ;                    (INFOS)
  898. ;                )
  899. ;                (RUN (CAT "DELETE " #sfx-dest "/#?.db QUIET FORCE"))        ; delete old database files
  900.             ))
  901.         ))
  902. ;        (IF (= #instsum 2)                                        ; a complete current version detected
  903. ;        (
  904. ;            aks wheter to reinstall components
  905. ;        ))
  906.     )
  907. )
  908.  
  909. (COPYFILES (SOURCE "ENV:Installer/Programs/sfx.cfg") (DEST "ENVARC:Installer/Programs/") (NOGAUGE))        ; make cfg persistent
  910.  
  911. ; set defaults ----------------------------------------------------------------------------------------------
  912.  
  913. (SET #fontpath 1)
  914. (SET #iconset 1)
  915. (SET #keypath 0)
  916.  
  917. ; now querry all choices ------------------------------------------------------------------------------------
  918.  
  919. ;(IF (= (EXISTS "sfx-bin") 2)
  920. ;(
  921. ;))
  922.  
  923. (IF (AND (= (EXISTS "sfx-data") 2) (< #data-ex 2))
  924. (
  925.     (SET #fontpath (P_GETTAG "fontpath"))                    ; get last-time choice
  926.     (IF (OR (= @user-level 2) (AND (= @user-level 1) ((= (STRLEN #fontpath) 0))))    ; requerry ?
  927.     (
  928.         (IF ((= (STRLEN #fontpath) 0)) (SET #fontpath 1))
  929.         (SET #fontpath
  930.             (ASKCHOICE
  931.                 (PROMPT #choose-fontpath)
  932.                 (HELP #choose-path-help)
  933.                 (CHOICES
  934.                     "FONTS:"
  935.                     "Progdir:fonts/"
  936.                 )
  937.                 (DEFAULT #fontpath)
  938.             )
  939.         )
  940.         (P_PUTTAG "fontpath" #fontpath)
  941.     ))
  942.  
  943.     (SET #iconset (P_GETTAG "iconset"))                    ; get last-time choice
  944.     (IF (OR (= @user-level 2) (AND (= @user-level 1) ((= (STRLEN #iconset) 0))))    ; requerry ?
  945.     (
  946.         (IF ((= (STRLEN #iconset) 0)) (SET #iconset 1))
  947.         (SET #iconset
  948.             (ASKCHOICE
  949.                 (PROMPT #choose-icon)
  950.                 (HELP #choose-icon-help)
  951.                 (CHOICES
  952.                     "Standart"
  953.                     "Magic WB"
  954.                     "NewIcons"
  955.                     "AristIcons (NewIcons)"
  956.                     "Iconographics"
  957.                     "GlowIcons (OS3.5)"
  958.                 )
  959.                 (DEFAULT #iconset)
  960.             )
  961.         )
  962.         (P_PUTTAG "iconset" #iconset)
  963.     ))
  964.  
  965.     (IF (= (EXISTS "SoundFX:" (NOREQ)) 2)
  966.     (
  967.         (SET #keypath (P_GETTAG "keypath"))                    ; get last-time choice
  968.         (IF (OR (= @user-level 2) (AND (= @user-level 1) ((= (STRLEN #keypath) 0))))        ; requerry ?
  969.         (
  970.             (IF ((= (STRLEN #keypath) 0)) (SET #keypath 0))
  971.             (SET #keypath
  972.                 (ASKCHOICE
  973.                     (PROMPT #choose-keypath)
  974.                     (HELP #choose-path-help)
  975.                     (CHOICES
  976.                         "DEVS:keyfiles/"
  977.                         "Progdir:keyfiles/"
  978.                         "Progdir:"
  979.                     )
  980.                     (DEFAULT #keypath)
  981.                 )
  982.             )
  983.             (P_PUTTAG "keypath" #keypath)
  984.         ))
  985.     ))
  986. ))
  987.  
  988. (IF (= (EXISTS "sfx-doc") 2)
  989. (
  990.     (SET #pathdoc "sfx-doc")
  991. )
  992. (
  993.     (SET #pathdocnr (P_GETTAG "language"))                    ; get last-time choice
  994.     (IF (OR (= @user-level 2) (AND (= @user-level 1) ((= (STRLEN #pathdocnr) 0))))    ; requerry ?
  995.     (
  996.         (IF ((= (STRLEN #pathdocnr) 0)) (SET #pathdocnr 0))
  997.         (SET #pathdocnr
  998.             (ASKCHOICE
  999.                 (PROMPT #choose-language)
  1000.                 (HELP #choose-language-help)
  1001.                 (CHOICES
  1002.                     "deutsch"
  1003.                     "english"
  1004.                 )
  1005.                 (DEFAULT #pathdocnr)
  1006.             )
  1007.         )
  1008.         (P_PUTTAG "language" #pathdocnr)
  1009.     ))
  1010.     (IF (= #pathdocnr 0)
  1011.       (SET #pathdoc "sfx-doc_ger")
  1012.     )
  1013.     (IF (= #pathdocnr 1)
  1014.       (SET #pathdoc "sfx-doc_eng")
  1015.     )
  1016. ))
  1017.  
  1018. (IF (= (EXISTS "sfx-bin") 2)
  1019. (
  1020.     (SET #pathbin "sfx-bin")
  1021. )
  1022. (
  1023.     (SET #pathbinnr (P_GETTAG "binary"))                    ; get last-time choice
  1024.     (IF (OR (= @user-level 2) (AND (= @user-level 1) ((= (STRLEN #pathbinnr) 0))))    ; requerry ?
  1025.     (
  1026.         (IF ((= (STRLEN #pathbinnr) 0)) (SET #pathbinnr 0))
  1027.         (SET #pathbinnr
  1028.             (ASKCHOICE
  1029.                 (PROMPT #choose-binary)
  1030.                 (HELP #choose-binary-help)
  1031.                 (CHOICES
  1032.                     "68000"
  1033.                     "68020"
  1034.                     "68020+FPU"
  1035.                     "68030"
  1036.                     "68030+FPU"
  1037.                     "68040+FPU"
  1038.                     "68060+FPU"
  1039.                 )
  1040.                 (DEFAULT #pathbinnr)
  1041.             )
  1042.         )
  1043.         (P_PUTTAG "binary" #pathbinnr)
  1044.     ))
  1045.     (IF (= #pathbinnr 0)
  1046.       (SET #pathbin "sfx-bin_00")
  1047.     )
  1048.     (IF (= #pathbinnr 1)
  1049.       (SET #pathbin "sfx-bin_20")
  1050.     )
  1051.     (IF (= #pathbinnr 2)
  1052.       (SET #pathbin "sfx-bin_20m")
  1053.     )
  1054.     (IF (= #pathbinnr 3)
  1055.       (SET #pathbin "sfx-bin_30")
  1056.     )
  1057.     (IF (= #pathbinnr 4)
  1058.       (SET #pathbin "sfx-bin_30m")
  1059.     )
  1060.     (IF (= #pathbinnr 5)
  1061.       (SET #pathbin "sfx-bin_40m")
  1062.     )
  1063.     (IF (= #pathbinnr 6)
  1064.       (SET #pathbin "sfx-bin_60m")
  1065.     )
  1066. ))
  1067.  
  1068. ; now test if everything else is available ------------------------------------------------------------------
  1069.  
  1070. (SET #vernum (GETVERSION "libs:openurl.library"))
  1071. (SET #ver_openurl (/ #vernum 65536))
  1072. (SET #rev_openurl (- #vernum (* #ver_openurl 65536) ))
  1073. (SET #vernum (GETVERSION "libs:popupmenu.library"))
  1074. (SET #ver_popupmenu (/ #vernum 65536))
  1075. (SET #rev_popupmenu (- #vernum (* #ver_popupmenu 65536) ))
  1076.  
  1077. (IF (< #ver_openurl 3)
  1078. (
  1079.     MESSAGE #requires-openurl
  1080. ))
  1081.  
  1082. (IF (< #ver_popupmenu 9)
  1083. (
  1084.     MESSAGE #requires-popupmenu
  1085. ))
  1086.  
  1087. (COPYFILES (SOURCE "ENV:Installer/Programs/sfx.cfg") (DEST "ENVARC:Installer/Programs/") (NOGAUGE))        ; make cfg persistent
  1088.  
  1089. ; SFX-bin begin ---------------------------------------------------------------------------------------------
  1090.  
  1091. (IF (AND (= (EXISTS #pathbin) 2) (< #bin-ex 2))
  1092. (
  1093.  
  1094. ; Loader ----------------------------------------------------------------------------------------------------
  1095. (COMPLETE 5)
  1096. (COPYFILES
  1097.     (PROMPT #copy-loader)
  1098.     (HELP #copy-help)
  1099.     (SOURCE #pathbin)
  1100.     (PATTERN "_loaders")
  1101.     (DEST #sfx-dest)
  1102. )
  1103.  
  1104. ; Operators -------------------------------------------------------------------------------------------------
  1105. (COMPLETE 8)
  1106. (COPYFILES
  1107.     (PROMPT #copy-operators)
  1108.     (HELP #copy-help)
  1109.     (SOURCE #pathbin)
  1110.     (PATTERN "_operators")
  1111.     (DEST #sfx-dest)
  1112. )
  1113.  
  1114. ; Player ----------------------------------------------------------------------------------------------------
  1115. (COMPLETE 15)
  1116. (COPYFILES
  1117.     (PROMPT #copy-player)
  1118.     (HELP #copy-help)
  1119.     (SOURCE #pathbin)
  1120.     (PATTERN "_players")
  1121.     (DEST #sfx-dest)
  1122. )
  1123.  
  1124. ; Saver -----------------------------------------------------------------------------------------------------
  1125. (COMPLETE 17)
  1126. (COPYFILES
  1127.     (PROMPT #copy-saver)
  1128.     (HELP #copy-help)
  1129.     (SOURCE #pathbin)
  1130.     (PATTERN "_savers")
  1131.     (DEST #sfx-dest)
  1132. )
  1133.  
  1134. ; SFX -------------------------------------------------------------------------------------------------------
  1135. (COMPLETE 19)
  1136. (COPYFILES
  1137.     (PROMPT #copy-executable)
  1138.     (HELP #copy-help)
  1139.     (SOURCE (CAT #pathbin "/sfx"))
  1140.     (DEST #sfx-dest)
  1141.     (NEWNAME "SoundFX")
  1142. )
  1143. (COMPLETE 23)
  1144. (COPYFILES
  1145.     (PROMPT #copy-executable)
  1146.     (HELP #copy-help)
  1147.     (SOURCE #pathbin)
  1148.     (PATTERN "libs")
  1149.     (DEST #sfx-dest)
  1150. )
  1151.  
  1152. ))
  1153.  
  1154. ; SFX-bin ende ----------------------------------------------------------------------------------------------
  1155.  
  1156. ; SFX-data begin --------------------------------------------------------------------------------------------
  1157.  
  1158. (IF (AND (= (EXISTS "sfx-data") 2) (< #data-ex 2))
  1159. (
  1160.  
  1161. ; Fonts kopieren --------------------------------------------------------------------------------------------
  1162. (COMPLETE 25)
  1163.  
  1164. (IF (= #fontpath 0)
  1165.  
  1166.   (SET #sfxsub-dest "FONTS:")
  1167. )
  1168. (IF (= #fontpath 1)
  1169. (
  1170.     (SET #sfxsub-dest (TACKON #sfx-dest "fonts"))
  1171.     (IF (= (EXISTS #sfxsub-dest) 0)
  1172.         (MAKEDIR #sfxsub-dest)
  1173.     )
  1174. ))
  1175. (COPYFILES
  1176.     (PROMPT #copy-fonts)
  1177.     (HELP #copy-help)
  1178.     (SOURCE "sfx-data/fonts/")
  1179.     (DEST #sfxsub-dest)
  1180.     (ALL)
  1181. )
  1182.  
  1183. ; Libs kopieren ---------------------------------------------------------------------------------------------
  1184. (COMPLETE 26)
  1185. (COPYLIB
  1186.     (PROMPT #copy-libs)
  1187.     (HELP #copy-help)
  1188.     (SOURCE "sfx-data/Libs/amigaguide.library")
  1189.     (DEST "LIBS:")
  1190. )
  1191. (COPYLIB
  1192.     (PROMPT #copy-libs)
  1193.     (HELP #copy-help)
  1194.     (SOURCE "sfx-data/Libs/configio.library")
  1195.     (DEST "LIBS:")
  1196. )
  1197. (COPYLIB
  1198.     (PROMPT #copy-libs)
  1199.     (HELP #copy-help)
  1200.     (SOURCE "sfx-data/Libs/listtools.library")
  1201.     (DEST "LIBS:")
  1202. )
  1203. (COPYLIB
  1204.     (PROMPT #copy-libs)
  1205.     (HELP #copy-help)
  1206.     (SOURCE "sfx-data/Libs/unitconv.library")
  1207.     (DEST "LIBS:")
  1208. )
  1209.  
  1210. ; Module Data (.modinfo, .presets ) -------------------------------------------------------------------------
  1211. (COMPLETE 31)
  1212. (COPYFILES
  1213.     (PROMPT #copy-presets)
  1214.     (HELP #copy-help)
  1215.     (SOURCE "sfx-data/")
  1216.     (PATTERN "_#?")
  1217.     (DEST #sfx-dest)
  1218. )
  1219.  
  1220. ; Delete Old Files ------------------------------------------------------------------------------------------
  1221.  
  1222. (COMPLETE 35)
  1223. (SET #sfxsub-dest (TACKON #sfx-dest "Synths"))
  1224. (IF (= (EXISTS #sfxsub-dest) 1)
  1225.     (DELETE #sfxsub-dest (ALL) (OPTIONAL FORCE))
  1226. )
  1227. (COMPLETE 36)
  1228. (SET #sfxsub-dest (TACKON #sfx-dest "EqShps"))
  1229. (IF (= (EXISTS #sfxsub-dest) 1)
  1230.     (DELETE #sfxsub-dest (ALL) (OPTIONAL FORCE))
  1231. )
  1232.  
  1233. ; Icon ------------------------------------------------------------------------------------------------------
  1234.  
  1235. (COMPLETE 38)
  1236. (IF (= #iconset 0)
  1237.     (SET #icon-dest "sfx-data/icons_std")
  1238. )
  1239. (IF (= #iconset 1)
  1240.     (SET #icon-dest "sfx-data/icons_mwb")
  1241. )
  1242. (IF (= #iconset 2)
  1243.     (SET #icon-dest "sfx-data/icons_ni")
  1244. )
  1245. (IF (= #iconset 3)
  1246.     (SET #icon-dest "sfx-data/icons_arist")
  1247. )
  1248. (IF (= #iconset 4)
  1249.     (SET #icon-dest "sfx-data/icons_icgfx")
  1250. )
  1251. (IF (= #iconset 5)
  1252.     (SET #icon-dest "sfx-data/icons_gi")
  1253. )
  1254.  
  1255. (COPYFILES
  1256.     (PROMPT #copy-icons)
  1257.     (HELP #copy-help)
  1258.     (SOURCE (TACKON #icon-dest "SoundFX.info"))
  1259.     (DEST #sfx-dest)
  1260. )
  1261. (COPYFILES
  1262.     (PROMPT #copy-icons)
  1263.     (HELP #copy-help)
  1264.     (SOURCE (TACKON #icon-dest "Guides.info"))
  1265.     (DEST #sfx-dest)
  1266. )
  1267. (COPYFILES
  1268.     (PROMPT #copy-icons)
  1269.     (HELP #copy-help)
  1270.     (SOURCE (TACKON #icon-dest "SFX.guide.info"))
  1271.     (DEST #sfxsub-dest)
  1272. )
  1273. (COPYFILES
  1274.     (PROMPT #copy-icons)
  1275.     (HELP #copy-help)
  1276.     (SOURCE (TACKON #icon-dest "Form.info"))
  1277.     (DEST #sfx-dest)
  1278.     (NEWNAME (CAT #orderform ".info"))
  1279. )
  1280. (COPYFILES
  1281.     (PROMPT #copy-icons)
  1282.     (HELP #copy-help)
  1283.     (SOURCE (TACKON #icon-dest "SoundDir.info"))
  1284.     (DEST #drawer-dest)
  1285.     (NEWNAME "sfx.info")
  1286. )
  1287.  
  1288. ; GFX -------------------------------------------------------------------------------------------------------
  1289.  
  1290. (COMPLETE 40)
  1291. (COPYFILES
  1292.     (PROMPT #copy-gfx)
  1293.     (HELP #copy-help)
  1294.     (SOURCE "sfx-data/")
  1295.     (PATTERN "Data")
  1296.     (DEST #sfx-dest)
  1297. )
  1298.  
  1299. ; Keyfile kopieren ------------------------------------------------------------------------------------------
  1300.  
  1301. (COMPLETE 45)
  1302. (IF (= #keypath 0)
  1303. (
  1304.     (SET #sfxsub-dest "DEVS:keyfiles")
  1305.     (IF (= (EXISTS #sfxsub-dest) 0) (MAKEDIR #sfxsub-dest (INFOS)) )
  1306. ))
  1307. (IF (= #keypath 1)
  1308. (
  1309.     (SET #sfxsub-dest (TACKON #sfx-dest "keyfiles"))
  1310.     (IF (= (EXISTS #sfxsub-dest) 0) (MAKEDIR #sfxsub-dest) )
  1311. ))
  1312. (IF (= #keypath 2)
  1313. (
  1314.     (SET #sfxsub-dest #sfx-dest)
  1315. ))
  1316. (COMPLETE 48)
  1317.  
  1318. (IF (OR (= #key-ex 0)((= (EXISTS "SoundFX:SFX.newkey" (NOREQ)) 1)))                                    ; nein -> checken, ob Disk im Laufwerk ist
  1319. (
  1320.     (IF (= (EXISTS "SoundFX:" (NOREQ)) 2)
  1321.     (
  1322.         (IF (= (EXISTS "SoundFX:SFX.newkey") 1)
  1323.             (SET #keyname "SoundFX:sfx.newkey")
  1324.             (SET #keyname "SoundFX:sfx.key")
  1325.         )
  1326.         (SET #copykey 1)
  1327.         (COPYFILES                            ; versuche Key von der Disk zu kopieren
  1328.             (PROMPT #copy-keyfile)
  1329.             (HELP #copy-help)
  1330.             (SOURCE #keyname)
  1331.             (DEST #sfxsub-dest)
  1332.             (NEWNAME "sfx.key")
  1333.             (OPTIONAL "nofail")
  1334.         )
  1335.         (TRAP 4 (IF (<> @IOERR 0)(SET #copykey 0)))        ; testen ob's geklappt hat
  1336.  
  1337.         (IF (= #copykey 0)
  1338.         (
  1339.           (SET #copykey 1)
  1340.           (COPYFILES                        ; mit 1. Kopie nochmal versuchen
  1341.             (PROMPT #copy-keyfile)
  1342.             (HELP #copy-help)
  1343.             (SOURCE (CAT #keyname "_1"))
  1344.             (DEST #sfxsub-dest)
  1345.             (NEWNAME "sfx.key")
  1346.             (OPTIONAL "nofail")
  1347.           )
  1348.           (TRAP 4 (IF (<> @IOERR 0)(SET #copykey 0)))    ; testen ob's geklappt hat
  1349.         ))
  1350.         (IF (= #copykey 0)
  1351.         (
  1352.           (SET #copykey 1)
  1353.           (COPYFILES                        ; mit 2. Kopie nochmal versuchen
  1354.             (PROMPT #copy-keyfile)
  1355.             (HELP #copy-help)
  1356.             (SOURCE (CAT #keyname "_2"))
  1357.             (DEST #sfxsub-dest)
  1358.             (NEWNAME "sfx.key")
  1359.             (OPTIONAL "nofail")
  1360.           )
  1361.           (TRAP 4 (IF (<> @IOERR 0)(SET #copykey 0)))    ; testen ob's geklappt hat
  1362.         ))
  1363.         (IF (= #copykey 0)
  1364.         (
  1365.           (SET #copykey 1)
  1366.           (COPYFILES                        ; mit 3. Kopie nochmal versuchen
  1367.             (PROMPT #copy-keyfile)
  1368.             (HELP #copy-help)
  1369.             (SOURCE (CAT #keyname "_3"))
  1370.             (DEST #sfxsub-dest)
  1371.             (NEWNAME "sfx.key")
  1372.             (OPTIONAL "nofail")
  1373.           )
  1374.           (TRAP 4 (IF (<> @IOERR 0)(SET #copykey 0)))    ; testen ob's geklappt hat
  1375.         ))
  1376.         (IF (= #copykey 0)
  1377.             (MESSAGE #copykey-fail)
  1378.         )
  1379.     ))
  1380. ))
  1381. (IF (= #instmode 0)                            ; we're in backup mode
  1382. (
  1383.     (IF (= #key-ex 2)                            ; copy key from backup
  1384.     (
  1385.         (COPYFILES
  1386.             (PROMPT #copy-keyfile)
  1387.             (HELP #copy-help)
  1388.             (SOURCE (CAT #sfx-dest "_old/sfx.key"))
  1389.             (DEST #sfxsub-dest)
  1390.         )
  1391.     ))
  1392.     (IF (= #key-ex 3)                            ; copy key from backup
  1393.     (
  1394.         (COPYFILES
  1395.             (PROMPT #copy-keyfile)
  1396.             (HELP #copy-help)
  1397.             (SOURCE (CAT #sfx-dest "_old/Keyfiles/sfx.key"))
  1398.             (DEST #sfxsub-dest)
  1399.         )
  1400.     ))
  1401. ))
  1402.  
  1403. ; Prefs -> Config -------------------------------------------------------------------------------------------
  1404.  
  1405. (COMPLETE 52)
  1406. (IF (AND (= (EXISTS "envarc:sfx.prefs") 1) (= (EXISTS "envarc:sfx.cfg") 0))
  1407. (
  1408.     (RUN "sfx-data/data/cp <>NIL:")
  1409. ))
  1410.  
  1411. ))
  1412.  
  1413.  
  1414. ; SFX-data ende ---------------------------------------------------------------------------------------------
  1415.  
  1416. ; SFX-doc begin ---------------------------------------------------------------------------------------------
  1417.  
  1418. (IF (AND (= (EXISTS #pathdoc) 2) (< #doc-ex 2))
  1419. (
  1420.  
  1421. ; Guide -----------------------------------------------------------------------------------------------------
  1422.  
  1423. (COMPLETE 55)
  1424. (COPYFILES
  1425.     (PROMPT #copy-text)
  1426.     (HELP #copy-help)
  1427.     (SOURCE #pathdoc)
  1428.     (PATTERN #readme)
  1429.     (DEST #sfx-dest)
  1430. )
  1431. (COPYFILES
  1432.     (PROMPT #copy-text)
  1433.     (HELP #copy-help)
  1434.     (SOURCE #pathdoc)
  1435.     (PATTERN #orderform)
  1436.     (DEST #sfx-dest)
  1437. )
  1438. (COMPLETE 58)
  1439. (COPYFILES
  1440.     (PROMPT #copy-guides)
  1441.     (HELP #copy-help)
  1442.     (SOURCE #pathdoc)
  1443.     (PATTERN "Guides")
  1444.     (DEST #sfx-dest)
  1445. )
  1446.  
  1447. (COMPLETE 66)
  1448. (COPYFILES
  1449.     (PROMPT #copy-guides)
  1450.     (HELP #copy-help)
  1451.     (SOURCE #pathdoc)
  1452.     (PATTERN "_#?")
  1453.     (DEST #sfx-dest)
  1454. )
  1455.  
  1456. (COMPLETE 95)
  1457. (SET #sfxsub-dest (TACKON #sfx-dest "Catalogs"))
  1458. (IF (= (EXISTS #sfxsub-dest) 0)
  1459.     (MAKEDIR #sfxsub-dest)
  1460. )
  1461. (SET #sfxsub-dest (TACKON #sfxsub-dest #catalog))
  1462. (IF (= (EXISTS #sfxsub-dest) 0)
  1463.     (MAKEDIR #sfxsub-dest)
  1464. )
  1465. (IF (= (EXISTS (CAT "sfx-doc/Catalogs/" #catalog "/SoundFX.catalog")) 1)
  1466.     (COPYFILES                                        ; copy only, if there is a catalog
  1467.         (PROMPT #copy-catalogs)                        ; else use the builtin-language instead
  1468.         (HELP #copy-help)
  1469.         (SOURCE (CAT #pathdoc "/Catalogs/" #catalog "/SoundFX.catalog"))
  1470.         (DEST #sfxsub-dest)
  1471.     )
  1472. )
  1473.  
  1474. ))
  1475.  
  1476. ; SFX-doc ende ----------------------------------------------------------------------------------------------
  1477.  
  1478. ; SFX-goodies begin -----------------------------------------------------------------------------------------
  1479.  
  1480. (IF (AND (= (EXISTS "sfx-goodies") 2) (< #goodies-ex 2))
  1481. (
  1482.  
  1483. ; Goodies ---------------------------------------------------------------------------------------------------
  1484.  
  1485. (COMPLETE 97)
  1486. (COPYFILES
  1487.     (PROMPT #copy-goodies)
  1488.     (HELP #copy-help)
  1489.     (SOURCE "sfx-goodies/")
  1490.     (DEST #sfx-dest)
  1491.     (ALL)
  1492. )
  1493.  
  1494. ))
  1495.  
  1496. ; SFX-goodies ende ------------------------------------------------------------------------------------------
  1497.  
  1498. ; Fertig ----------------------------------------------------------------------------------------------------
  1499.  
  1500. (SET #vernum (GETVERSION "workbench.library" (RESIDENT)))
  1501. (SET #ver (/ #vernum 65536))
  1502. (IF (> #ver 43)
  1503. (
  1504.     (RUN (CAT "sys:rexxc/rx \"address WORKBENCH;WINDOW '" #sfx-dest "' OPEN;MENU INVOKE WINDOW.SHOW.ONLYICONS;MENU INVOKE WINDOW.CLEANUPBY.COLUMN;MENU INVOKE WINDOW.RESIZETOFIT;MENU INVOKE WINDOW.SNAPSHOT.ALL\""))
  1505. ))
  1506.  
  1507. (COMPLETE 100)
  1508. (EXIT #exit-messy)
  1509. ; Install-SFX Ende ------------------------------------------------------------------------------------------
  1510.